Ao enviae email não aparece o logo

Moderador: Avelino Sampaio

ventura
Mensagens: 5
Registrado em: 07 Jun 2015, 10:44

Ao enviae email não aparece o logo

Mensagempor ventura » 07 Fev 2016, 19:16

Ola Avelino boa tarde
tenho um formulário envio de email com imagem no corpo do mail em html, antes de enviar esta tudo ok a imagem esta la.
no destino final nao se ve a imagem so aparece um quadrado,

desde ja muito obrigado
Junto imagem antes e depois de ser enviado o mail
Mail.png


junto codigo que estou a utilizar para o envio
Código:
Private Sub EnvioEmail_Click()
On Error GoTo Err_EnvioEmail_Click
Dim V_Texto As String
Dim rs As Recordset
If IsNull(NomeMail) Then
MsgBox ("Atenção esse cliente não tem Email")
Me.FichaCliente.SetFocus
Exit Sub
End If
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(olMailItem)

origem = Application.CurrentProject.path & "\"

'Cria o html para envio no corpo do email
stLinkCriteria = "[IDOrcamento]=" & Me![IDOrcamento]
DoCmd.OpenReport "OrcamentoSem", acViewPreview, , stLinkCriteria

DoCmd.OutputTo acOutputReport, "OrcamentoSem", acFormatHTML, origem & "Email" & "." & "html", 0 'strCaminho, 0
DoCmd.Close acReport, "OrcamentoSem"

strMensagemCorpoDoEmail = "Email" & "." & "html"
nomelogo = origem & "\Logo.png"
V_Texto = "<html><img width=250 height=80 src=" & nomelogo & " ALIGN='LEFT'>"
V_Texto = V_Texto & "<br>"
V_Texto = V_Texto & "<br>"
V_Texto = V_Texto & "<br>"
V_Texto = V_Texto & "<br>"
V_Texto = V_Texto & "<br>"
V_Texto = V_Texto & fncLerArquivo(origem & "\" & strMensagemCorpoDoEmail)

With OutMail
.To = Me.NomeMail.Value
'.CC =
.Subject = Me.Finalidade.Value
.HTMLBody = V_Texto
' .Send
.Display
End With

Exit_EnvioEmail_Click:
Exit Sub

Err_EnvioEmail_Click:
MsgBox Err.Description
Resume Exit_EnvioEmail_Click

End Sub
Você deve estar registrado e autenticado para ter acesso ao arquivo anexo.

Disable adblock

Precisamos do seu apoio. Faca uma doacao para o site atraves do Paypal.


Avatar do usuário
Avelino Sampaio
Mensagens: 2160
Registrado em: 04 Jun 2015, 18:27
Contato:

Re: Ao enviae email não aparece o logo

Mensagempor Avelino Sampaio » 08 Fev 2016, 09:34

Olá, Ventura!

Se eu não me engano é necessário adicionar a imagem no anexo. Algo assim:

Código:
Private Sub EnvioEmail_Click()
On Error GoTo Err_EnvioEmail_Click
Dim V_Texto As String
Dim rs As Recordset
If IsNull(NomeMail) Then
MsgBox ("Atenção esse cliente não tem Email")
Me.FichaCliente.SetFocus
Exit Sub
End If
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(olMailItem)

origem = Application.CurrentProject.path & "\"

'Cria o html para envio no corpo do email
stLinkCriteria = "[IDOrcamento]=" & Me![IDOrcamento]
DoCmd.OpenReport "OrcamentoSem", acViewPreview, , stLinkCriteria

DoCmd.OutputTo acOutputReport, "OrcamentoSem", acFormatHTML, origem & "Email" & "." & "html", 0 'strCaminho, 0
DoCmd.Close acReport, "OrcamentoSem"

strMensagemCorpoDoEmail = "Email" & "." & "html"
nomelogo = origem & "\Logo.png"
OutMail.Attachments.Add nomeLogo

V_Texto = "<html><img width=250 height=80 src=" & Logo.png & " ALIGN='LEFT'>"
...
...


Aguardamos
==================================================
Clique no link abaixo e veja um ótimo kit de ensino que tenho para você.
http://www.usandoaccess.com.br
==================================================

ventura
Mensagens: 5
Registrado em: 07 Jun 2015, 10:44

Re: Ao enviae email não aparece o logo

Mensagempor ventura » 08 Fev 2016, 15:26

Boa tarde Avelino
Ja fiz a alteração mas assim a imagem vai em anexo e não no corpo do email

V_Texto = "<html><img width=250 height=80 src=" & nomeLogo & " ALIGN='LEFT'>"

Com mais esta alteracao da erro este erro : Object required
V_Texto = "<html><img width=250 height=80 src=" & Logo.png & " ALIGN='LEFT'>"

Avatar do usuário
neros
Mensagens: 12
Registrado em: 14 Jun 2015, 03:36

Re: Ao enviae email não aparece o logo

Mensagempor neros » 21 Fev 2016, 16:18

Ventura,
Tive um problema semelhante há uns 2 anos atrás. Era uma notificação por e-mail que pedia o logo do cliente no início.
Resolvi substituindo a imagem local pela imagem publicada na web.
Você pode usar o caminho direto do site do cliente (como foi o meu caso) ou, se tiver um servidor web, pode hospedar os logos em uma pasta específica e indicar o caminho na sua aplicação.
Neros Systems
Desenvolvimento em Access, VBA, SQL Server, Sharepoint e Power BI.
Conheça nosso site | contato@neros.com.br

Disable adblock

Precisamos do seu apoio. Faca uma doacao para o site atraves do Paypal.



Voltar para “Access x Outlook”

Quem está online

Usuários neste fórum: Nenhum usuário registrado e 1 visitante