使用 Outlook VBA 从模板创建新电子邮件的 2 种快速方法

立即分享:

由于许多用户认为查找和使用 Outlook 电子邮件模板很麻烦,因此我们将在本文中展示使用 Outlook VBA 模板创建新电子邮件的两种快速方法。

通常情况下,要使用 Outlook 电子邮件模板,您必须先点击“新建项目”>“更多项目”>“选择表单”来找到它。然后在“选择表单”对话框中,找到并打开“文件系统中的用户模板”中的目标模板,如下图所示。

选择表单

显然,确实很麻烦。 因此,在这里我们将介绍2种快捷方式,可以借助Outlook VBA使用模板快速创建新邮件。 继续阅读以详细了解它们。

方法一:直接用Outlook VBA新建邮件模板

  1. 首先,转到Outlook主窗口中的“开发人员”选项卡。
  2. 然后单击“Visual Basic”按钮,这将弹出一个新窗口。
  3. 接下来,将以下 VBA 代码复制并粘贴到模块中。
Sub CreateNewMail()
    Dim obApp As Object
    Dim NewMail As MailItem
 
    Set obApp = Outlook.Application
    Set NewMail = obApp.CreateItem(olMailItem)
 
    'You can change the concrete info as per your needs
    With NewMail
         .Subject = Date & " Test Email"
         .To = "example@mail.com"
         .Body = "Dear Johnny," & vbCrLf & vbCrLf & "I'm glad to write this email to you .......... " & vbCrLf & vbCrLf & "This is just a test email template with Outlook VBA" & vbCrLf & vbCrLf & vbCrLf & "Yours Truly," & vbCrLf & vbCrLf & "John Smith"
         .Attachments.Add ("C:\Attachments\Test File.docx")
         .Importance = olImportanceHigh
         .Display
    End With
 
    Set obApp = Nothing
    Set NewMail = Nothing
End Sub

直接通过 Outlook VBA 创建一个新的电子邮件模板

  1. 之后,退出“Visual Basic”窗口。 现在按照以下步骤将此宏添加到快速访问工具栏:
  • 首先,单击快速访问工具栏中的向下箭头,然后选择“更多命令”。
  • 然后在新的弹出窗口中,将“Choose commands from”设置为“Macros”。
  • 之后,选择正确的那个。
  • 接下来,单击“添加”按钮。将新的宏模块添加到快速访问工具栏
  • 随后,您可以更改其外观。 单击“修改”按钮。 在新对话框中,给它一个新名称并为其指定一个图标。修改快速访问工具栏中的宏外观
  • 最后点击两个“确定”。
  1. 最后,您可以单击快速访问工具栏中的宏图标。 随即,会弹出一个新的消息窗口,如下图。Outlook VBA 模板中的新邮件

方法 2:通过 Outlook VBA 从现有模板创建新电子邮件

  1. 首先,您应该有一个现成的电子邮件模板。 以所需格式、信纸创建新电子邮件,并将其另存为 Outlook 模板。 详细步骤参考文章“如何通过 Outlook 模板提高工作效率”。 另外,请记下此模板文件的保存文件夹路径。
  2. 然后访问“Visual Basic”窗口并打开一个新模块,如提示 1。
  3. 随后,您应该复制并粘贴以下屏幕截图:
Sub CreateEmailfromTemplate()
    Dim obApp As Application
    Dim NewMail As Outlook.MailItem
 
    Set obApp = Outlook.Application
    'Change the template file folder path according to your case
    Set NewMail = obApp.CreateItemFromTemplate("C:\Users\Test\Documents\Test Mail.oft")
    NewMail.Display
 
    Set obApp = Nothing
    Set NewMail = Nothing
End Sub

通过 Outlook VBA 从现有模板创建新电子邮件

  1. 之后,按照上面提示 5 中的步骤 1 将新宏添加到快速访问工具栏。
  2. 最终你可以尝试一下。 您将使用模板获得新电子邮件,如下图所示:通过 Outlook VBA 从模板发送电子邮件

三种方法的比较

方法 企业优势 坏处
方法1 您可以直接通过 VBA 代码创建电子邮件模板。 您无法格式化消息中的文本。
方法2 您可以应用所需的文具并格式化电子邮件的文本。 您应该提前创建一个新的电子邮件模板。

应对偶尔出现的 Outlook 错误

尽管 Outlook 功能丰富,但仍然容易出现各种问题。其中最令人头疼的问题是用户无法启动 Outlook。通常,这种情况可能发生在以下情况下: 损坏的 Outlook. 所以你可以去“控制面板”来修复办公套件。 如果问题仍然存在,那么您必须求助于有经验的修复工具,例如 DataNumen Outlook Repair.

作者简介:

Shirley Zhang 是一位数据恢复专家 DataNumen, Inc.,它是数据恢复技术领域的世界领先者,包括 修复 SQL Server MDF 和 outlook 修复软件产品。 欲了解更多信息,请访问 datanumen.com

立即分享:

评论被关闭。