通过vba在excel中打开邮件模板并用excel数据填充模板答案

【问题标题】：Open mail template in excel via vba and fill template with excel data通过vba在excel中打开邮件模板并用excel数据填充模板
【发布时间】：2018-12-03 17:01:10
【问题描述】：

我需要一些帮助来使用 excel 填写邮件模板。我现在的问题是如何用宏打开模板我是这样写的：

Sub OpenMail()

    Open "L:\Projekte\Abteilung\Projekt\Vorlage_deutsch" For Input As #1

End Sub

运行此宏会引发一个错误，提示找不到数据。有没有办法直接将模板保存在excel中而不是尝试从计算机打开它？此外，如果您对如何用我在 excel 中的行数据填充电子邮件有任何想法，那将非常有帮助！谢谢！！

【问题讨论】：

office模板的准确扩展是什么？我使用了 pst，但也没有用

标签： excel vba email outlook

【解决方案1】：

这是打开 Outlook 邮件模板的示例代码。

Sub CreateMailInExcel()
Dim olApp As Object
Set olApp = Outlook.Application
Dim Msg As Outlook.MailItem
''Debug.Print (olApp.ProductCode)
Set Msg = olApp.CreateItemFromTemplate("D:\Test\untitled.oft")
Msg.Display
'Set Msg = Nothing
Set olApp = Nothing
End Sub

outlook邮件模板的扩展名为.oft

您需要设置对 Microsoft Outlook 15.0 对象库的引用。

【讨论】：

谢谢！！这真的很有帮助

【解决方案2】：

下面的 sub 是简单类型的邮件，其中包含来自 excel 单元格的数据。您必须根据需要调整代码。

Option Explicit

Sub SendMail()
Dim sendTo As String
Dim strBody As String
Dim strSubject As String
Dim OutApp As Object
Dim OutMail As Object
Dim strMail as String

'Ad referrence ---> Microsoft Outlook 12.0 object library

Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(olMailItem)

strMail = Range("A1")  ' Email address in A1 cell
strBody = Range("B1")  ' Subject text in B1 cell
strSubject = Range("C1") ' Message body in C1 cell

        With OutMail
            '.Attachments.Add ThisWorkbook.Path & "\TestFile.pdf"
            .To = strMail
            .Subject = strSubject 
            .HTMLBody = strBody
            .Display 'Show mail message.
            '.Send  'Direct send
        End With
'    Application.Wait (Now + TimeValue("0:00:02"))
'    Application.SendKeys "%s"

End Sub

【讨论】：

谢谢！但我不想发送邮件，因为每封邮件都有一些单独的输入。我只是想填写一些信息，然后让用户将其余信息放入并发送...我还必须使用特定的电子邮件模板...：/
我只为您提供了一个简单的逻辑。根据需要进行编辑。
非常感谢，你能用几句话描述你的逻辑吗？我对 vba 真的很陌生.. 抱歉，祝你有美好的一天 :)
假设您要键入带有一些预定义数据的邮件，例如主题的特定句子，邮件正文的特定段落。然后您想编辑主题和正文中的少量数据。因此，您可以将这些预定义文本存储在 excel 单元格中并使用这些文本打开一封新邮件，然后您可以添加/编辑用户的文本并发送邮件。