Criando automaticamente um nome * Dear * remetente, no Outlook

Question

Eu gostaria de automatizar o processo de criação da primeira parte de um email, a saber "Caro nome do remetente " no Outlook. Acredito que seja possível, pois o nome pode ser derivado do campo de nome da pessoa que enviou o email (ou seja, campo de nome [ campo de email ] que aparece no topo do email). Como faço para realizar isso?

    

Answer 1

Este é um recurso de Mala Direta e o Microsoft Outlook blog é executado através de como configurar isso

The basic steps to creating a mail merged e-mail from Outlook are:

1. Select your contacts in Outlook
2. Select to send an e-mail in the Mail Merge dialog and choose your subject
3. Compose your e-mail in Word – inserting fields where appropriate
4. Preview and Send

Leia sobre os detalhes no artigo do blog vinculado acima.

    

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