LISTA DE E-MAIL DO VB BANCO DE DADOS PARA OUTLOOK

CRAZYFEPE 04/08/2009 18:22:14
#318906
Preciso de ajuda!

Tenho um programa em vb com base de dados em access.... nesta base tem varias tabelas a tabela TB005 tem o e-mail dos clientes... preciso mandar esta lista de e-mail para o outlook

obrigado se alguém me ajudar
X16X 04/08/2009 18:31:42
#318909 Resposta escolhida
Dá uma olhada nesse exemplo, creio que seja o que quer.

Voce so tera que organizar da forma que quer trabalhar com as informacoes.

http://support.microsoft.com/kb/220595

[ô] Start Outlook.
 [ô] If it is already running, you[ô]ll use the same instance...
   Dim olApp As Outlook.Application
   Set olApp = CreateObject([Ô]Outlook.Application[Ô])
    
 [ô] Logon. Doesn[ô]t hurt if you are already running and logged on...
   Dim olNs As Outlook.NameSpace
   Set olNs = olApp.GetNamespace([Ô]MAPI[Ô])
   olNs.Logon

 [ô] Create and Open a new contact.
   Dim olItem As Outlook.ContactItem
   Set olItem = olApp.CreateItem(olContactItem)

 [ô] Setup Contact information...
   With olItem
      .FullName = [Ô]James Smith[Ô]
      .Birthday = [Ô]9/15/1975[Ô]
      .CompanyName = [Ô]Microsoft[Ô]
      .HomeTelephoneNumber = [Ô]704-555-8888[Ô]
      .Email1Address = [Ô]someone@microsoft.com[Ô]
      .JobTitle = [Ô]Developer[Ô]
      .HomeAddress = [Ô]111 Main St.[Ô] & vbCr & [Ô]Charlotte, NC 28226[Ô]
   End With
   
 [ô] Save Contact...
   olItem.Save
    
 [ô] Create a new appointment.
   Dim olAppt As Outlook.AppointmentItem
   Set olAppt = olApp.CreateItem(olAppointmentItem)
    
 [ô] Set start time for 2-minutes from now...
   olAppt.Start = Now() + (2# / 24# / 60#)
    
 [ô] Setup other appointment information...
   With olAppt
      .Duration = 60
      .Subject = [Ô]Meeting to discuss plans...[Ô]
      .Body = [Ô]Meeting with [Ô] & olItem.FullName & [Ô] to discuss plans.[Ô]
      .Location = [Ô]Home Office[Ô]
      .ReminderMinutesBeforeStart = 1
      .ReminderSet = True
   End With
    
 [ô] Save Appointment...
   olAppt.Save
    
 [ô] Send a message to your new contact.
   Dim olMail As Outlook.MailItem
   Set olMail = olApp.CreateItem(olMailItem)
 [ô] Fill out & send message...
   olMail.To = olItem.Email1Address
   olMail.Subject = [Ô]About our meeting...[Ô]
   olMail.Body = _
        [Ô]Dear [Ô] & olItem.FirstName & [Ô], [Ô] & vbCr & vbCr & vbTab & _
        [Ô]I[ô]ll see you in 2 minutes for our meeting![Ô] & vbCr & vbCr & _
        [Ô]Btw: I[ô]ve added you to my contact list.[Ô]
   olMail.Send
    
 [ô] Clean up...
   MsgBox [Ô]All done...[Ô], vbMsgBoxSetForeground
   olNS.Logoff
   Set olNs = Nothing
   Set olMail = Nothing
   Set olAppt = Nothing
   Set olItem = Nothing
   Set olApp = Nothing


Flw's
CRAZYFEPE 04/08/2009 18:38:05
#318910
Mais ele tem que pegar o email da base de dados agenda.mdb na taleba tab005

obrigado
CRAZYFEPE 04/08/2009 18:49:22
#318912
Na verdade so quero abrir os contatos de email da base de dados direto no outlook para ser preenchido e enviado...

a base de dados agenda.mdb
tabela de clientes TB005

ou abrir o outlook com estes emails da base
Amilton
X16X 04/08/2009 19:03:51
#318913
CrazyFepe,

Entendo o que voce quer fazer, a partir desse exemplo que lhe mostrei da pra voce fazer o que quer....

Basta agora voce dar um select na sua tabela TB005.

  select * from TB005 where cod_cliente = [ô]1[ô]


Voce trabalha com seu recordset

 text1.text =  Rs.fields([Ô]email_cliente[Ô])


A partir desse ponto voce inseri ao invez dos dados sitados no exemplo.. coloca essa text1 como dado do e-mail do cliente.

é tudo questao de testar e analisar o codigo acima.

Obs: Mais caso queria que o oultlook abre somente a janela de envio de e-mail , com seus dados preenchidos, creio que ja tenha vista isso e irei procurar e te informo.

flw's
X16X 04/08/2009 19:20:55
#318917
Ou talvez queria fazer da seguinte forma:

  [ô]Coloque em um modulo
Public Declare Function ShellExecute Lib [Ô]shell32.dll[Ô] Alias [Ô]ShellExecuteA[Ô] (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
[ô]Coloque em um modulo

Private Sub Form_Load()

v_Email = [Ô]mailto:[Ô] & [Ô]poliana@gmail.com[Ô]

[ô] OU

v_Email = [Ô]mailto:[Ô] & rs.fiels([Ô]email_contato[Ô])


Call ShellExecute(hwnd, [Ô]open[Ô], v_Email, vbNullString, vbNullString, SW_SHOWNORMAL)

End Sub


flw's
Tópico encerrado , respostas não são mais permitidas
Voltar