EMAIL URGENTE
tenho uma base de dados em access com varias tabelas.. quero colocar no outlook a tab005 para com o email dos clientes para mandar mensagem..
alguém pode me ajudar
alguém pode me ajudar
ue , essa perguntava nao estava respondida no outro topico ?
Flw's.
Flw's.
tenho este codigo pode me ajudar
Private Sub enviar_Click()
Dim oEmail As Outlook.Application
Dim oEmailAtach As Outlook.MailItem
Set BANCO = DBEngine.Workspaces(0).OpenDatabase(Vlocal & [Ô]AGENDA.mdb[Ô], False, False, [Ô];pwd=1j5a0c3a7r0e[Ô])
Set RegTab5 = BANCO.OpenRecordset([Ô]TAB005[Ô], dbOpenTable)
RegTab5.Index = [Ô]TB5_CLIENTE [Ô]
TB5_Cliente = [Ô] select * from TB005 where TB5_CODIGO = [ô]1[ô] [Ô]
Set oEmail = Outlook.Application
Set oEmailAtach = oEmail.CreateItem(olMailItem)
With oEmailAtach
.BodyFormat = olFormatHTML
.To = TB5_EMAIL
.HTMLBody = [Ô]<HTML><BODY> <FONT face=[ô]Arnprior[ô]> Mensagem OK </FONT> </BODY></HTML>[Ô]
.Display
End With
End Sub
Private Sub enviar_Click()
Dim oEmail As Outlook.Application
Dim oEmailAtach As Outlook.MailItem
Set BANCO = DBEngine.Workspaces(0).OpenDatabase(Vlocal & [Ô]AGENDA.mdb[Ô], False, False, [Ô];pwd=1j5a0c3a7r0e[Ô])
Set RegTab5 = BANCO.OpenRecordset([Ô]TAB005[Ô], dbOpenTable)
RegTab5.Index = [Ô]TB5_CLIENTE [Ô]
TB5_Cliente = [Ô] select * from TB005 where TB5_CODIGO = [ô]1[ô] [Ô]
Set oEmail = Outlook.Application
Set oEmailAtach = oEmail.CreateItem(olMailItem)
With oEmailAtach
.BodyFormat = olFormatHTML
.To = TB5_EMAIL
.HTMLBody = [Ô]<HTML><BODY> <FONT face=[ô]Arnprior[ô]> Mensagem OK </FONT> </BODY></HTML>[Ô]
.Display
End With
End Sub
Tópico encerrado , respostas não são mais permitidas