Ola pessoal,
Tenho esse código para envio de email pelo outlook que funciona perfeitamente, a unica coisa que preciso é colocar o texto da ListBox no corpo do email depois da mensagem.
Alguém pode ajudar?
Dim Destinatario As String, assunto As String, mensagem As String
On Error GoTo fim
assunto = TxtAssunto
Destinatario = TxtEmailDestinatario
copia = '"OUTROEMAIL"
mensagem = "Olá " & TxtContato & "!" & vbCrLf & vbCrLf & _
"Segue a relação de materiais para retrabalho que estou enviando pelo seu motorista." & vbCrLf & _
"Por favor, responder este email para TODOS, informando a previsão de retorno." & vbCrLf & _
"Obrigado!"
'Pula uma linha
'Aqui vai o texto da listbox (a listbox tem 8 colunas e as linhas variam conforme a pesquisa)
Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.Application.createitem(olMailItem)
With objMail
.Subject = assunto
.To = Destinatario
.cc = copia
.HTMLbody = mensagem
.display
.send
End With
Set objOutlook = Nothing
Set objMail = Nothing
fim: End
Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Enviar texto do ListBox no outlook
Enviar texto do ListBox no outlook
- Anexos
-
- ALMOXARIFADO - RETRABALHO - Cópia.rar
- (85.71 KiB) Baixado 183 vezes