- 30 Jun 2015 às 08:35
#1539
Bom dia
Gostaria da ajuda de vocês para saber como eu posso fazer uma macro para que seja inserido minha assinatura no outlook.
Abaixo segue o código que uso atualmente para inserir anexos e descrição di e-mail, ela funciona perfeitamente, porém toda vez tenho q ir manualmente e inserir a assinatura.
"E-MAIL"
Sub EnviaEmail()
Dim appOutlook As Object
Dim olMail As Object
'Verifica se Outlook está aberto. Caso não esteja, criar nova instância
On Error Resume Next
Set appOutlook = GetObject(, "Outlook.Application")
If appOutlook Is Nothing Then
Set appOutlook = CreateObject("Outlook.Application")
End If
On Error GoTo 0
Set olMail = appOutlook.CreateItem(0) '0 é um item de e-mail
With olMail
.To = ";"
.CC = ";"
.Subject = "ASSUNTO"
.Attachments.Add ("CAMINHO DO ARQUIVO\PLANILHA.xlsm")
.Body = ""
.Display 'ou .Send
End With
ActiveWorkbook.Save
End Sub
Desde ja agradeço
Gostaria da ajuda de vocês para saber como eu posso fazer uma macro para que seja inserido minha assinatura no outlook.
Abaixo segue o código que uso atualmente para inserir anexos e descrição di e-mail, ela funciona perfeitamente, porém toda vez tenho q ir manualmente e inserir a assinatura.
"E-MAIL"
Sub EnviaEmail()
Dim appOutlook As Object
Dim olMail As Object
'Verifica se Outlook está aberto. Caso não esteja, criar nova instância
On Error Resume Next
Set appOutlook = GetObject(, "Outlook.Application")
If appOutlook Is Nothing Then
Set appOutlook = CreateObject("Outlook.Application")
End If
On Error GoTo 0
Set olMail = appOutlook.CreateItem(0) '0 é um item de e-mail
With olMail
.To = ";"
.CC = ";"
.Subject = "ASSUNTO"
.Attachments.Add ("CAMINHO DO ARQUIVO\PLANILHA.xlsm")
.Body = ""
.Display 'ou .Send
End With
ActiveWorkbook.Save
End Sub
Desde ja agradeço
