Option Explicit
Dim BancoDeDadosAurotur As Database
Dim TabelaEMail As Recordset
Dim TabelaOrcamentoAereo As Recordset
Private Sub CmdEnviar_Click()
MAPISession1.LogonUI = True
MAPISession1.SignOn
MAPIMessages1.SessionID = MAPISession1.SessionID
MAPIMessages1.Compose
MAPIMessages1.RecipIndex = 0
MAPIMessages1.RecipAddress = TXTA1.Text '//"
emaildap@provedor.com.br"
MAPIMessages1.RecipType = 1
'// Assunto
MAPIMessages1.MsgSubject = "Envio automático de E-Mail"
'// Informa anexo
If TXTA3.Text <> "" Then
MAPIMessages1.AttachmentIndex = 0
MAPIMessages1.AttachmentPathName = TXTA3.Text
MAPIMessages1.AttachmentPosition = 0
End If
'// Conteudo da mens
MAPIMessages1.MsgNoteText = TXTA4.Text
MAPIMessages1.Send False
MAPISession1.SignOff
End Sub
Private Sub Form_Load()
Set BancoDeDadosAurotur = OpenDatabase(App.Path & "Bdaurotur.mdb")
Set TabelaEMail = BancoDeDadosAurotur.OpenRecordset("tbemail", dbOpenTable)
Set TabelaOrcamentoAereo = BancoDeDadosAurotur.OpenRecordset("tborcamentoaereo", dbOpenTable)
If TabelaOrcamentoAereo.EOF = True Then
MsgBox ("Você não possui clientes cadastrados!"), vbExclamation, "Verificando Registros"
GoTo finaliza
End If
TabelaOrcamentoAereo.Index = "a1"
Dim procuraCod As String
procuraCod = FrmOrcamentoAereo.TXTA1
TabelaOrcamentoAereo.Seek "=", procuraCod
If TabelaOrcamentoAereo.NoMatch = True Then
MsgBox ("Cliente não cadastrado!")
TabelaOrcamentoAereo.MovePrevious
End If
'// Montando Mensagem
TXTA4.Text = "<html><body>texto do email " + TabelaOrcamentoAereo("a8") + "Continua texto do emal</body></html>"
finaliza:
End Sub
Eu só não consigo ler o E.mail no formato html quando eu recebo pelo Outlook.
Obrigado.....
