Pedro antes de tudo cadastre-se no forum, e coloque mais detalhado qual o erro que está dando ou qual é a sua duvida, possuo um projeto assim, posso te axiliar no que precisa.

 

 

Flw

 

T+

 

 

João, muito obrigado pela força. Já me cadastrei.

 

O meu problema é o seguinte, tenho um form no VB6 que envia e-mail MAPI. Até aí tudo bem, consigo enviar e-mail normalmente para um determinado destinatario. O que eu preciso agora é enviar esse mesmo e-mail para vários contatos que estão no meu banco de dados(access). Nesse banco tenho nome, empresa e o endereço de e-mail do contato. Tenho uma ComboBox que tem os nomes das empresas e gostaria que ao selecionar a empresa "x" nessa Combo, tivesse um loop que enviasse um e-mail para todos os os contatos dessa empresa. E se possível mostrasse na tela quantos e-mails foram enviados.

 

O código do botão de envio que tenho é esse:

 

Private Sub cmdenviar_Click()
  
Dim SQL As String
Dim cont As String
   
    BD.Open "provider=microsoft.jet.oledb.4.0;" & _
    "Data source=c:CONTATOS.mdb;" & _
    "persist security info=false;"
   
    SQL = "select * from CONTATOS"
    RS.Open SQL, BD, 3, 3
     
      MAPISession2.SignOn
      MAPIMessages2.SessionID = MAPISession2.SessionID
  
       
   While Not RS.EOF
       
   
      MAPIMessages2.Compose
      MAPIMessages2.RecipAddress = txt_destino.Text
      MAPIMessages2.MsgSubject = txt_assunto.Text
      MAPIMessages2.MsgNoteText = txt_mensagem.Text
     
        If txt_anexo <> Empty Then
           '______Tipo de dados a ser anexado
            MAPIMessages2.AttachmentType = mapData
           '______Endereço do anexo
            MAPIMessages2.AttachmentPathName = txt_anexo.Text
        End If
     
       
      MAPIMessages2.Send
     
 
End Sub

 

Aí é que esta o meu problema.

Desde já agradeço muito por você ter se disposto a me ajudar.

Abraço!

 

 

Não está faltando um loop no seu while?

Faça o seguinte no seu código:

 

Dim SQL As String
Dim cont As String

Dim I As Integer
     I = 0
    BD.Open "provider=microsoft.jet.oledb.4.0;" & _
    "Data source=c:CONTATOS.mdb;" & _
    "persist security info=false;"
   
    SQL = "select * from CONTATOS"
    RS.Open SQL, BD, 3, 3
     
      MAPISession2.SignOn
      MAPIMessages2.SessionID = MAPISession2.SessionID
  
   Rs.MoveMin ( M o v e f i r s t ) coloquei, pois o form muda o nome f i r s t  e coloca min

        
   While Not RS.EOF
       
   
      MAPIMessages2.Compose
      MAPIMessages2.RecipAddress = txt_destino.Text
      MAPIMessages2.MsgSubject = txt_assunto.Text
      MAPIMessages2.MsgNoteText = txt_mensagem.Text
     
        If txt_anexo <> Empty Then
           '______Tipo de dados a ser anexado
            MAPIMessages2.AttachmentType = mapData
           '______Endereço do anexo
            MAPIMessages2.AttachmentPathName = txt_anexo.Text
        End If
     
       
      MAPIMessages2.Send
       I= I + 1

  Wend 

 

 

Fazendo isso o ponteiro vai para o primeiro registro e cada passada no while o ponteiro vai para o próximo até o ultimo e ao sair da rotina irá mostrar uma mensagem de quantos e-mail foram enviados.

 

Espero te lhe ajudado.

 

Flw

 

T+