Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Correspondencia de ...
 
Notifications
Clear all

Correspondencia de celulas excel para corpo do mail pelo Gma

 
2024 - VBA & Macros
Post Recente por Albino 7 anos atrás
9 Posts
2 Usuários
0 Reactions
1,311 Visualizações
RSS
 Albino
(@albino)
Posts: 12
Active Member
Topic starter
 

Boas
Sendo novato aqui no forum e tendo "umas luzinhas de VBA" será que alguém me poderia ajudar com uma duvida em relação a um código que uso para enviar email pelo Gmail??
É o seguinte:
O código que consegui da net está a funcionar enviando o mail pelo Gmail, mas o que eu tencionava era que no corpo do mail fosse buscar informação á folha do excel onde os dados estão inscritos.
Com o envio pelo outlook consegui que funcionasse introduzindo quebras de linha/parágrafos.
Quando envio pelo Gmail, todo o texto vai numa linha só sem a informação contida nas células da planilha.
Este é o código que uso para o Outlook:

'Código para Corpo do Outlook baseado en VBA
        .HTMLBody = "Mensagem enviada com o gmail." & _
             "Participação de Ocorrência em," & " " & Folha2.Cells(13, 7) & vbCrLf & vbCrLf & _
             "Ocorrência relativa a:" & " " & Folha2.Cells(3, 7) & "," & vbCrLf & "." & _
             "Modelo:" & " " & Folha2.Cells(5, 7) & vbCrLf & _
                    "Com o Nº:" & " " & Folha2.Cells(7, 7) & vbCrLf & _
                    "Efectuada por:" & " " & "Enfº/ª:" & " " & Folha2.Cells(13, 20) & ", " & "Nº Mec." & Folha2.Cells(13, 26) & vbCrLf & vbCrLf & _
                    "Atenciosamente," & vbCrLf & _
                    "Help Desk

No entanto quando uso o Gmail a informação relativa ás células perde-se
eis o código que estou a usar 

.HTMLBody = _
   "<HTML>" & vbNewLine & _
      "<BODY style=font-size:11pt;font-family:Calibri> " & vbNewLine & _
         "<P>Participação de Ocorrência em,& Formulario.Cells(13, 7).value </P>" & vbNewLine & _
         "<P>Ocorrência relativa a:& Folha2.Cells(3, 7). </P>" & vbNewLine & _
         "<P>Modelo: &Folha2.Cells(5, 7).</P> " & vbNewLine & _
         "<P>Com o nº: & Folha2.Cells(7, 7).</P> " & vbNewLine & _
         "<P>Efetuado por Enfº,& Folha2.Cells(13, 20),& com o Nº Mec. & Folha2.Cells(13, 26)</P>" & vbNewLine & _
         "<P></P> " & vbNewLine & _
         "<P></P> " & vbNewLine & _
         "<P>Seguem documentos.</P>" & vbNewLine & _
      "</BODY>" & vbNewLine & _
   "</HTML>"

O problema é que assim não introduz a informação das células no mail.

O que será que está errado??
Obrigado desde já, e desculpem se causei muita "poluição""
Albino

 
Postado : 22/04/2018 8:27 pm
Wagner Morel
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

Albino,

Boa tarde!

Minha sugestão é para que você elabore um pequeno exemplo e anexe o arquivo compactado com .ZIP aqui no mesmo no fórum. Esse exemplo deve ser pequeno e com dados fictícios, todavia, com a mesma disposição dos dados existentes no arquivo original.

Desse modo, ficará mais fácil de que todos examinem o arquivo, o código e o que é necessário fazer para que você possa enviar email pelo Gmail contendo as informações contidas nas células.

Não sei porque você está utilizando HTML no texto da mensagem. Não vejo razão para isso. Veja, no exemplo anexo, o envio de email sem ser pelo outlook onde a mensagem é escrita normalmente sem a necessidade de HTML. No caso desse exemplo, que usa o objeto CDO da Microsoft há a necessidade de alterar as configurações de servidor, portas, etc.

Enviar E-mail do Excel sem utilizar o Outlook.zip

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 25/04/2018 11:08 am
 Albino
(@albino)
Posts: 12
Active Member
Topic starter
 

Boas
Obrigado pela resposta.
Eu já conhecia esse código, mas não bebe informação no Excel.
O facto de usar html prende-se com o facto de ir buscar informação a determinadas células do Excel.
Por Ex: no corpo teria de ter esta informação
Ocorrência referente a (Cell A6), do (Cell A7), em (cell E9), por (Cell D10) & (Cell D11)
Ocorrência referente a maquina avariada, da cozinha, em 14-03-2017, enviada por Alberto nºMec 54879.
Nestas células estarão contidos a informação que me interessa mandar automaticamente.
Se manda-se por outlook eu sabia fazer a correspondência, agora em html não sei.
Amanhã mando Zip do ficheiro, hoje não tenho programa para Zipar.
Obrigado

 
Postado : 26/04/2018 6:54 pm
Wagner Morel
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

Ok. Mande que vou dar uma olhada. Não esqueça de anexar aqui mesmo no fórum pois a maioria dos sites de compartilhamento são bloqueados nas empresas.

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 27/04/2018 6:36 am
 Albino
(@albino)
Posts: 12
Active Member
Topic starter
 
Ocorrencia_Mail.zip

Broas
Wagner.
Junto envio ficheiro do qual pretendo enviar o mail com referencia a células da folha "Formulario".

 
Postado : 27/04/2018 8:59 am
Wagner Morel
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

Albino,

Seu arquivo não abriu aqui. Veja mensagem de erro.

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 27/04/2018 9:04 am
 Albino
(@albino)
Posts: 12
Active Member
Topic starter
 

Vamos ver se vai desta
Tive de alterar muito o ficheiro par diminuir o tamanho

ComOcorr_mail.zip
 
Postado : 27/04/2018 12:13 pm
Wagner Morel
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

Albino,

Bom dia!

Desculpe a demora na resposta.

Segue o seu arquivo após feita as correções para que o email pelo gmail pegue o texto enviado como HTML e as informações diretamente da planilha.

ComuOcorrê-Mail.zip

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 30/04/2018 8:39 am
 Albino
(@albino)
Posts: 12
Active Member
Topic starter
 

Wagner
Muito obrigado pela solução
Está a funcionar.

 
Postado : 01/05/2018 2:08 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico