INSERIR IMAGEM NO EMAIL - MAPI

RAFAELDYAS 31/01/2011 12:07:45
#363882

Galera,

Como faço para inserir imagem no corpo do email utilizando MAPI.

Criei um SUB onde faço de tudo inclui destinatário, assunto, anexo etc, mas não consigo inseriri uma imagem JPG no corpo do email.

Private Sub Comando0_Click()
Dim Email() As String
Dim Anexo() As String
Dim aAnexos() As String

Set tmdb = CurrentDb
Set tarq = tmdb.OpenRecordset([Ô]select * from [AGENCIA-AGRUPADA] order by [AGENCIA][Ô])

DoEvents
Do
If tarq.EOF = False Then
ArqAgencia = Format(tarq!AGENCIA, [Ô]0000[Ô]) & [Ô]_[Ô] & Replace(Replace(Replace(Replace(tarq![AGENC], [Ô] [Ô], [Ô]_[Ô]), [Ô].[Ô], [Ô]_[Ô]), [Ô]/[Ô], [Ô]_[Ô]), [Ô]-[Ô], [Ô]_[Ô]) & [Ô]_SEM_MESTRE[Ô]
emailAgencia = Format(tarq!AGENCIA, [Ô]0000[Ô]) & [Ô].gerencia@bradesco.com.br[Ô]
End If

ReDim Email(0) As String
Email(0) = [Ô]4008.cmomm@bradesco.com.br[Ô]

CorpoEMail = [Ô][Ô]

MAPISess.SignOn
MAPISess.DownLoadMail = False
MAPIMsg.SessionID = MAPISess.SessionID
MAPIMsg.Compose
For X = 0 To UBound(Email)
If Email(X) <> [Ô][Ô] Then
MAPIMsg.RecipIndex = X
MAPIMsg.RecipAddress = Email(X)
MAPIMsg.ResolveName
End If
Next X
MAPIMsg.MsgSubject = [Ô]Ref.: CLIENTES QUE ABRIRAM MESTRE DE COBRANÇA ENTRE OUT/2010 E NOV/2010 E AINDA NÃO COMEÇARAM A MOVIMENTAR[Ô]
MAPIMsg.MsgNoteText = [Ô]Sr(a) Gerente[Ô] & vbCrLf & vbCrLf & vbCrLf & [Ô]Contamos com o empenho de todos.[Ô] & vbCrLf & vbCrLf & vbCrLf & [Ô]4008/DCPS[Ô]
ReDim Anexo(0) As String
Anexo(0) = [Ô]C:\Documents and Settings\f761437.CORP\Meus documentos\RAFAEL DYAS\01-AÇÕES COMERCIAIS E OPERACIONAIS\PONTUAIS\CLIENTES COBRANÇA - MESTRE\ARQUIVO\Carta_Clientes_que_abriram_mestre_de_cobrança Agencias.html[Ô]
[ô]Anexo(0) = [Ô]C:\Documents and Settings\f761437.CORP\Meus documentos\RAFAEL DYAS\01-AÇÕES COMERCIAIS E OPERACIONAIS\PONTUAIS\CLIENTES COBRANÇA - MESTRE\ARQUIVO\PDF\[Ô] & ArqAgencia & [Ô].PDF[Ô]
[ô]Anexo(1) = [Ô]C:\Documents and Settings\f761437.CORP\Meus documentos\RAFAEL DYAS\01-AÇÕES COMERCIAIS E OPERACIONAIS\PONTUAIS\CLIENTES COBRANÇA - MESTRE\ARQUIVO\Carta_Clientes_que_abriram_mestre_de_cobrança Agencias.pdf[Ô]
For X = 0 To UBound(Anexo)
If Anexo(X) <> [Ô][Ô] Then
MAPIMsg.AttachmentIndex = X
MAPIMsg.AttachmentPathName = Anexo(X)
MAPIMsg.AttachmentName = Anexo(X)
End If
Next X
MAPIMsg.AttachmentIndex = 0
MAPIMsg.AttachmentType = mapData
MAPIMsg.Send
MAPISess.SignOff
tarq.MoveNext
Loop While (Not tarq.EOF)
End Sub

Desde ja agradeço a ajuda.