Ir ao conteúdo
  • Cadastre-se

Visual Basic VBA para enviar email


Posts recomendados

Boa tarde pessoal.

 

estou montando esse código para enviar uns relatórios por email, porém preciso anexar um grafico no corpo do email como imagem.

Fato é que se eu salvar o arquivo em algum local como imagem pra depois usar no codigo um SW da empresa bloqueia essa imagem, então eu preciso que gere a imagem direto no corpo do email.

 

<Sub Enviar_email()

Call Mostra

Set objeto_outlook = CreateObject("outlook.application")
Set Email = objeto_outlook.CreateItem(0)

Email.Display

Email.To = "[email protected]"
Email.cc = Cells(2, 1).Value & "@samsung.com"

Email.Subject = "Segue notificação de falha"

Email.Body = "Olá," _
    & Chr(10) & Chr(10) & "Segue em anexo notificação de falha encontrada em OQC." _
    & Chr(10) & Chr(10) & "Qualquer dúvida, favor entrar em contato com " & Cells(2, 1).Value

  
Email.attachments.Add ActiveWorkbook.FullName

Email.send

 

End Sub>

 

como se fosse concatenado com o corpo do email

alguem pode me ajduar??

Link para o comentário
Compartilhar em outros sites

@Douglas ianes  Coloque o caminho correto da imagem e tente enviar assim,

 

.Attachments.Add "C:\IMAGEM.JPG"
.HTMLBody = "<html><img src=""cid:IMAGEM.JPG""</img></html>"
.Display
.Send

Se não der certo outra forma é copiar o gráfico (via macro) e colar quando a macro chamar a função Display.

  • Curtir 1
Link para o comentário
Compartilhar em outros sites

@Midori a principio o codigo que me passou deu certo. 

 

ficou assim.

 

Sub Enviar_email()

Set objeto_outlook = CreateObject("outlook.application")
Set Email = objeto_outlook.CreateItem(0)

Email.Display

Email.To = "[email protected]"
Email.cc = Cells(2, 1).Value & "@gmail.com"

Email.Subject = "Segue notificação de falha"

Email.attachments.Add ActiveWorkbook.FullName
Email.attachments.Add "C:\Temp\painel.JPG"


Email.HTMLBody = "Olá," _
    & Chr(10) & Chr(10) & "Segue em anexo notificação de falha encontrada em OQC." _
    & Chr(10) & Chr(10) & "Qualquer dúvida, favor entrar em contato com " & Cells(2, 1).Value & _
    "<html><img src=""cid:painel.JPG""</img></html>

Email.send

 

End Sub

 

somente as quebra de texto que não estão funcionando.

ja tentei <br> também e não consegui.

 

Link para o comentário
Compartilhar em outros sites

1 hora atrás, Douglas ianes disse:

somente as quebra de texto que não estão funcionando.

ja tentei <br> também e não consegui.

Faça a atribuição só com a sintaxe HTML,

 

Email.HTMLBody = "<html>Olá,<br><br>Segue em anexo notificação de falha encontrada em OQC." & _
    "<br><br>Qualquer dúvida, favor entrar em contato com " & Cells(2, 1).Value & _
    "<br><img src=""cid:painel.JPG""</img></html>"

 

  • Curtir 1
Link para o comentário
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisa ser um usuário para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...