Автоматическое создание имени дорогого * отправителя * в Outlook

Question

Я хотел бы автоматизировать процесс создания первой части электронного письма, а именно « Имя уважаемого отправителя » в Outlook. Я полагаю, что это возможно, поскольку имя может быть получено из поля имени человека, отправившего электронное письмо (т.е. поле имени [ поле электронной почты ], которое появляется вверху электронного письма). Как мне сделать это?

Answer 1

Это функция слияния, и в блоге Microsoft Outlook рассказывается, как ее настроить.

Основные шаги по созданию электронной почты слияния из Outlook:

1. Выберите ваши контакты в Outlook
2. Выберите, чтобы отправить сообщение электронной почты в диалоговом окне «Слияние» и выберите свою тему.
3. Составьте свою электронную почту в Word - вставляя поля, где это уместно
4. Предварительный просмотр и отправка

Читайте о деталях в статье блога, связанной выше.

Answer 2

Sub InsertNameInReply()

Dim Msg As Outlook.MailItem
Dim MsgReply As Outlook.MailItem
Dim strGreetName As String
Dim lGreetType As Long

 ' set reference to open/selected mail item
On Error Resume Next
Select Case TypeName(Application.ActiveWindow)
Case "Explorer"
    Set Msg = ActiveExplorer.Selection.Item(1)
Case "Inspector"
    Set Msg = ActiveInspector.CurrentItem
Case Else
End Select
On Error GoTo 0

If Msg Is Nothing Then GoTo ExitProc

strGreetName = Mid$(Msg.SenderName, 2 + InStr(1, Msg.SenderName, ", ", Len(Msg.SenderName)) - 1)

Set MsgReply = Msg.Reply

With MsgReply
    .Subject = "RE:" & Msg.Subject
    .HTMLBody = "<span style=""font-family : verdana;font-size : 10pt""><p>Hello " & strGreetName & ",</p></span>" & .HTMLBody
    .Display
End With

ExitProc:
Set Msg = Nothing
Set MsgReply = Nothing
End Sub