Код VBA с пользовательским вводом для шаблона Outlook

Question

Я хочу, чтобы мой шаблон электронной почты Outlook запрашивал ввод данных и заменял указанные поля ввода.Как мне это сделать?Например, моя электронная почта будет выглядеть так:

Hello [name]

, и я хочу, чтобы появилось окно, в котором я могу ввести имя и отобразить его по всей электронной почте, заменив [name]

Я не знаю, как интегрировать код VBA в шаблон, кто-нибудь может помочь с этим?

Answer 1

Я нашел, что это хорошо работает для того, что вы хотите.Используя мой пример, сохраняя «# 0 #» в своем шаблоне в разделе «to:» электронного письма, нажав этот шаблон, он предложит вам изменить эту запись с вопросом «Email Address»

Sub CommandButton1_Click ()

Call OpenTemplate

End Sub

Sub OpenTemplate ()

Dim OutMail As Outlook.MailItem
Set OutMail = Application.CreateItemFromTemplate("Template Location")

On Error Resume Next
With OutMail
    .To = Replace(.To, "#0#", InputBox("Email Address"))
    .CC = ""
    .BCC = ""
    .Subject = Replace(.Subject, "#1#", InputBox("Prompt 1"))
    .Body = Replace(.Body, "#2#", InputBox("Prompt 2"))
    .Body = Replace(.Body, "#3#", InputBox("Prompt 3"))
    .Body = Replace(.Body, "#4#", InputBox("Prompt 4"))

    .Display
End With
On Error GoTo 0

Set OutMail = Nothing
Set OutApp = Nothing

End Sub

Но я также хочу пойти дальшеи не могу понять это.Я хочу создать несколько шаблонов, которые будут иметь одинаковые записи для множественных заполнителей, но я не могу найти способ сделать это, не вводя их по отдельности.Любая помощь также приветствуется