Como responder com um modelo padrão enquanto substitui o valor do nome

0

Eu estou querendo saber se isso é possível? Eu tenho e-mails que vêm comigo ter que responder a eles com a seguinte mensagem

Hello NAME,

Your request has been completed.

Thank you.

Existe uma maneira de eu automatizar esse processo com um clique de um botão? Também há uma maneira de preencher o NAME com o nome do remetente? Atualmente, o nome dos remetentes aparece no campo "De" como segue Sobrenome, Nome. Eu gostaria de substituir a variável NAME da minha mensagem pelo valor FirstName.

Eu estou querendo saber se isso é possível com o Outlook 2003?

Qualquer ajuda seria muito apreciada.

Obrigado.

    
por BaconJuice 19.11.2013 / 21:51

1 resposta

0

Salve um arquivo de modelo com seu texto. No código, ele é salvo na unidade C e denominado NamePlaceholder.oft. Mude conforme necessário.

Abra uma solicitação antes de executar o código.

Sub CreateReplyFromTemplate()

Dim currItem  As Outlook.mailItem
Dim currItemReply  As Outlook.mailItem
Dim myItem As Outlook.mailItem

Dim commaPositionRight As Long
Dim Firstname As String

Set currItem = ActiveInspector.currentItem
Set currItemReply = currItem.Reply
Set myItem = Application.CreateItemFromTemplate("C:\NamePlaceholder.oft")

myItem.To = currItemReply.To
commaPositionRight = InStrRev(myItem.To, ",")
Firstname = Right(myItem.To, commaPositionRight)

myItem.Subject = currItem.Subject

' if "RE:" or "FW:" on the request,
'  and the client replies there would be an extra "RE:" or "FW:"
If InStr(myItem.Subject, "RE: ") = 1 Or InStr(myItem.Subject, "FW: ") = 1 Then
    myItem.Subject = Right(myItem.Subject, Len(myItem.Subject) - 4)
End If

myItem.HTMLBody = myItem.HTMLBody & currItemReply.HTMLBody
myItem.HTMLBody = Replace(myItem.HTMLBody, "NAME", Firstname)

currItemReply.Close olDiscard
currItem.Close olDiscard

myItem.Display

Set currItemReply = Nothing
Set myItem = Nothing
Set currItem = Nothing

End Sub

Se você não estiver familiarizado com o VBA, consulte link

    
por 06.12.2013 / 13:11