Export_Eviar_agenda_por_email_dll

Esta é uma pré-visualização de arquivo. Entre para ver o arquivo original

Sub Export_Eviar_agenda_por_email_dll()
Dim outapp As Object
Dim outmail As Object
Dim ASSUNTO As String
Dim DESTINATARIO As String
Dim ANEXO As String
Dim NOMEARQUIVO As String
 Dim ENDEREÇO As String
 
 NOMEARQUIVO = P0.Cells(3, 1) & ".xlsx"
 ANEXO = P0.Cells(1, 1) & "\" & NOMEARQUIVO
Set outapp = CreateObject("outlook.application")
Set outmail = outapp.createitem(0)
ASSUNTO = P0.Cells(3, 1)
With outmail
.To = ""
.Subject = "Agenda " & ASSUNTO
.Body = "Agenda de Divulgação " & vbCrLf & vbCrLf & Now()
.Display
.Attachments.Add ANEXO & ""
'.Send
End With
End Sub