Я хотел бы автоматизировать процесс создания первой части электронного письма, а именно « Имя уважаемого отправителя » в Outlook. Я полагаю, что это возможно, поскольку имя может быть получено из поля имени человека, отправившего электронное письмо (т.е. поле имени [ поле электронной почты ], которое появляется вверху электронного письма). Как мне сделать это?
2 ответа
3
Это функция слияния, и в блоге Microsoft Outlook рассказывается, как ее настроить.
Основные шаги по созданию электронной почты слияния из Outlook:
- Выберите ваши контакты в Outlook
- Выберите, чтобы отправить сообщение электронной почты в диалоговом окне «Слияние» и выберите свою тему.
- Составьте свою электронную почту в Word - вставляя поля, где это уместно
- Предварительный просмотр и отправка
Читайте о деталях в статье блога, связанной выше.
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