Bom dia Colegas, gostaria de incomodá-los novamente, pretendo enviar além dos e-mails e a descrição do e-mail, enviar a assinatura no corpo do e-mail, mas a assinatura é uma imagem, como poderia adicioná-la?
Set oApp = CreateObject("Outlook.Application")
Set oMail = oApp.CreateItem(olMailItem)
With oMail
.To = Me.txtUsuario
.CC = Me.emailS
.Subject = Nz(Me.Asunto, "")
.Body = Nz(Me.Body, "")
.Send
End With
Muito obrigado desde já pela atenção e ajuda.
Tenho feito testes com esse código mas ele só me envia a string, não exibe a imagem da assinatura do corpo.
Dim oApp As Outlook.Application
Dim oMail As Outlook.MailItem
Const pathImage As String = "C:\Users\usuario\Downloads\Emails\Image\firma.jpeg"
If Me.emailUsuario <> "" Then
Set oApp = CreateObject("Outlook.Application")
Set oMail = oApp.CreateItem(olMailItem)
With oMail
.To = Me.emailUsuario
.CC = Me.email_super
.Subject = Nz(Me.Asunto, "")
.Body = Nz(Me.Body, "")
.HTMLBody = .HTMLBody & pathImage
.Display
.Send
End With
Set oApp = Nothing
EnvioEmail = True
Set oApp = CreateObject("Outlook.Application")
Set oMail = oApp.CreateItem(olMailItem)
With oMail
.To = Me.txtUsuario
.CC = Me.emailS
.Subject = Nz(Me.Asunto, "")
.Body = Nz(Me.Body, "")
.Send
End With
Muito obrigado desde já pela atenção e ajuda.
Tenho feito testes com esse código mas ele só me envia a string, não exibe a imagem da assinatura do corpo.
Dim oApp As Outlook.Application
Dim oMail As Outlook.MailItem
Const pathImage As String = "C:\Users\usuario\Downloads\Emails\Image\firma.jpeg"
If Me.emailUsuario <> "" Then
Set oApp = CreateObject("Outlook.Application")
Set oMail = oApp.CreateItem(olMailItem)
With oMail
.To = Me.emailUsuario
.CC = Me.email_super
.Subject = Nz(Me.Asunto, "")
.Body = Nz(Me.Body, "")
.HTMLBody = .HTMLBody & pathImage
.Display
.Send
End With
Set oApp = Nothing
EnvioEmail = True