Groups | Search | Server Info | Keyboard shortcuts | Login | Register [http] [https] [nntp] [nntps]

Groups > it.comp.lang.visual-basic > #19916

VB6 invio email ancora errore

Show all headers | View raw

Sono ancora a disturbarvi,ma nel programma che allego,tutto funziona;invia le email con il testo da me stabilito ma mi da questo errore :"Run-time error
2147220980(88004020c) è necessario specificare almeno un destinatario,ma non ne è stato trovato alcuno" e mi evidenzia la line indicata
Private Sub Command4_Click()
Dim MailDestinatario As String
Dim IDTuoAccountGmail As String
Dim PasswordTuoAccountGmail As String
Dim Oggetto As String
Dim CorpoMessaggio As String
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
Dim destinatari As String
Oggetto = Text11.Text
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim database As String
 
database = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
database = database & App.Path & "\" & "ospiti.mdb"

Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset

cn.Open database

rs.Open "Select EMAIL from ANAGRAFICA ", cn, 3, 3

rs.MoveFirst

Do Until rs.EOF
destinatari = rs.Fields("EMAIL")

 
schema = "http://schemas.microsoft.com/cdo/configuration/"
Flds.Item(schema & "sendusing") = 2
Flds.Item(schema & "smtpserver") = "smtp.gmail.com"
Flds.Item(schema & "smtpserverport") = 465
Flds.Item(schema & "smtpauthenticate") = 1
Flds.Item(schema & "sendusername") = "NOME@gmail.com"
Flds.Item(schema & "sendpassword") = "psvqmebzgdbsfdzx" 
                                                         
Flds.Item(schema & "smtpusessl") = 1
Flds.Update


 
With iMsg
   .to = destinatari
    '.Bcc = destinatari
    .From = "NOME@gmail.com"
    ''.Sender = ""
    '.ReplyTo = ""
    .Subject = Oggetto


  .TextBody = Text2.Text
    Set .Configuration = iConf
    
 
 
    
  
  sendemailgmail = .Send  (QUESTA è LA LINEA CHE MI DA ERRORE)
 
 
    

End With
 
 rs.MoveNext
Loop
Set iMsg = Nothing
Set iConf = Nothing
Set Flds = Nothing
End Sub

Back to it.comp.lang.visual-basic | Previous | Next | Find similar

Thread

VB6 invio email ancora errore gaetano cala <calabresega@gmail.com> - 2021-07-16 10:28 -0700

csiph-web