INSERIR TEXTO NO EMAIL HTML
Olá Galera,
Peguei um exemplo de como mandar email em massa com imagem para clientes e gostaria de saber como é a linha de comando para inserir um texto antes da imagem.
o exemplo está abaixo:
Private Sub Envioemail()
On Error GoTo Informar:
Const sch = [Ô]http://schemas.microsoft.com/cdo/configuration/[Ô]
Set HTML = WebBrowser1.Document
Dim INI_PATH As String
Dim loCfg As Object
Dim loMsg As Object
Dim loBP As Object
Dim i As Long
Dim DestImg As String
Dim TempHTML As String
Dim TempHTMLMail As String
Dim texto As String
Set loCfg = CreateObject([Ô]CDO.Configuration[Ô])
With loCfg.Fields
.Item(sch & [Ô]smtpserver[Ô]) = [Ô]smtp.sao.terra.com.br[Ô]
.Item(sch & [Ô]smtpserverport[Ô]) = 25 [ô]
.Item(sch & [Ô]sendusing[Ô]) = 2
.Item(sch & [Ô]sendusername[Ô]) = [Ô]usuario@terra.com.br[Ô] [ô]
.Item(sch & [Ô]sendpassword[Ô]) = [Ô]xxxxxxx[Ô]
.Item(sch & [Ô]smtpusessl[Ô]) = 0 [ô]
.Item(sch & [Ô]smtpconnectiontimeout[Ô]) = 15
.Item(sch & [Ô]smtpauthenticate[Ô]) = 1
End With
loCfg.Fields.Update
Set loMsg = CreateObject([Ô]CDO.Message[Ô])
Label2.Caption = [Ô]enviando email ....[Ô]
With loMsg
.Configuration = loCfg
.From = [Ô]usuarioa@terra.com.br[Ô]
.To = [Ô]usuario@terra.com.br[Ô]
.Subject = txtAssunto
GOSTARIA DE POR O TEXTO AQUI ANTES DA IMAGEM, ALGUEM SABE A ROTINASHTML
texto = [Ô]Programação do dia[Ô]
strImg = WebBrowser1.LocationURL
If Left(strImg, 8) = [Ô]file:///[Ô] Then
DestImg = GetFileNameURL(strImg)
If DestImg <> [Ô][Ô] Then
HTML.images.Item(i).src = [Ô]cid:[Ô] & DestImg & i
Set loBP = .AddRelatedBodyPart(strImg, DestImg & i, 1)
With loBP.Fields
.Item([Ô]urn:schemas:mailheader:Content-ID[Ô]) = DestImg & i
.Update
End With
End If
Else
End If
.HTMLBody = HTML.documentElement.outerHTML
HTML.body.innerHTML = TempHTML
[ô]Prioridad
[ô] -1=Low, 0=Normal, 1=High
.Fields([Ô]urn:schemas:httpmail:priority[Ô]) = mPrioridad - 1
.Fields([Ô]urn:schemas:mailheader:X-Priority[Ô]) = mPrioridad - 1
[ô]Importancia
[ô]0=Low, 1=Normal, 2=High
.Fields([Ô]urn:schemas:httpmail:importance[Ô]) = mPrioridad
.Fields.Update
.BCC = wcco
.send
End With
Peguei um exemplo de como mandar email em massa com imagem para clientes e gostaria de saber como é a linha de comando para inserir um texto antes da imagem.
o exemplo está abaixo:
Private Sub Envioemail()
On Error GoTo Informar:
Const sch = [Ô]http://schemas.microsoft.com/cdo/configuration/[Ô]
Set HTML = WebBrowser1.Document
Dim INI_PATH As String
Dim loCfg As Object
Dim loMsg As Object
Dim loBP As Object
Dim i As Long
Dim DestImg As String
Dim TempHTML As String
Dim TempHTMLMail As String
Dim texto As String
Set loCfg = CreateObject([Ô]CDO.Configuration[Ô])
With loCfg.Fields
.Item(sch & [Ô]smtpserver[Ô]) = [Ô]smtp.sao.terra.com.br[Ô]
.Item(sch & [Ô]smtpserverport[Ô]) = 25 [ô]
.Item(sch & [Ô]sendusing[Ô]) = 2
.Item(sch & [Ô]sendusername[Ô]) = [Ô]usuario@terra.com.br[Ô] [ô]
.Item(sch & [Ô]sendpassword[Ô]) = [Ô]xxxxxxx[Ô]
.Item(sch & [Ô]smtpusessl[Ô]) = 0 [ô]
.Item(sch & [Ô]smtpconnectiontimeout[Ô]) = 15
.Item(sch & [Ô]smtpauthenticate[Ô]) = 1
End With
loCfg.Fields.Update
Set loMsg = CreateObject([Ô]CDO.Message[Ô])
Label2.Caption = [Ô]enviando email ....[Ô]
With loMsg
.Configuration = loCfg
.From = [Ô]usuarioa@terra.com.br[Ô]
.To = [Ô]usuario@terra.com.br[Ô]
.Subject = txtAssunto
GOSTARIA DE POR O TEXTO AQUI ANTES DA IMAGEM, ALGUEM SABE A ROTINASHTML
texto = [Ô]Programação do dia[Ô]
strImg = WebBrowser1.LocationURL
If Left(strImg, 8) = [Ô]file:///[Ô] Then
DestImg = GetFileNameURL(strImg)
If DestImg <> [Ô][Ô] Then
HTML.images.Item(i).src = [Ô]cid:[Ô] & DestImg & i
Set loBP = .AddRelatedBodyPart(strImg, DestImg & i, 1)
With loBP.Fields
.Item([Ô]urn:schemas:mailheader:Content-ID[Ô]) = DestImg & i
.Update
End With
End If
Else
End If
.HTMLBody = HTML.documentElement.outerHTML
HTML.body.innerHTML = TempHTML
[ô]Prioridad
[ô] -1=Low, 0=Normal, 1=High
.Fields([Ô]urn:schemas:httpmail:priority[Ô]) = mPrioridad - 1
.Fields([Ô]urn:schemas:mailheader:X-Priority[Ô]) = mPrioridad - 1
[ô]Importancia
[ô]0=Low, 1=Normal, 2=High
.Fields([Ô]urn:schemas:httpmail:importance[Ô]) = mPrioridad
.Fields.Update
.BCC = wcco
.send
End With
Vc pode escrever um HTML normal exemplo
<html><body>
Isso é um teste<BR<BR>
<img src=[Ô]imagemteste.jpg[Ô]>
</body></html>
mandar a mesma imagem como anexo
<html><body>
Isso é um teste<BR<BR>
<img src=[Ô]imagemteste.jpg[Ô]>
</body></html>
mandar a mesma imagem como anexo
Tópico encerrado , respostas não são mais permitidas