Acquista i nostri libri consigliati su Amazon.it
+ Rispondi al messaggio
Visualizzazione dei risultati da 1 a 3 su 3

invio di email a più indirizzi

  1. #1
    sarabassi non è in linea Novello
    Buongiorno a tutti,
    avrei necessità di impostare l'invio di una mail a più destinatari. L'elenco degli indirizzi a cui mandare la mail viene creato tramite una semplicissima query di creazione tabella ( ogni giorno gli inidirizzi a cui mandare la mail variano ed è la soluzione più veloce per avere un elenco filtrato). Ho utilizzato il seguente codice ma quando mi apre il messaggio di posta non ci sono gli indirizzi email all'interno e non riesco a capire quale sia l'errore. Premetto che nella stringa SQL non ho messo condizioni particolari perchè non ci sono, il sistema deve mandare la mail a tutto quell'elenco specifico di persone. Dove sto sbagliando? Cosa mi sono dimenticata?

    Dim rs      As DAO.Recordset
    Dim strSql  As String
    Dim sendto As String
    Dim NewMail As Object
     
        strSql = "SELECT Email FROM CONNECTVWTAB" ------ nome tabella
    
    Set rs = CurrentDb.OpenRecordset(strSql)
        rs.MoveFirst
    Do Until rs.EOF
    sendto = (sendto & "; ") 
    rs.MoveNext
    Loop
    
    MsgBox "Vuoi davvero mandare una mail a tutti i destinatari in elenco?", vbYesNo
    If Messaggioemail = vbNo Then Exit Sub
    
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
        With OutMail
        .To = 
        .cc = ""
        .bcc = sendto
        .Subject = "prova"
        .HTMLBody = "test"
        .Display
        End With
        
        Set OutMail = Nothing
        Set OutApp = Nothing
    
    Ultima modifica di AntonioG; 23-03-2021 19:25  Motivo: Usa i tag code per il codice

  2. #2
    Ho aggiunto io i tag CODE per il codice, attenzione in futuro.

    Per il problema, non pensi che qui

    sendto = (sendto & "; ")

    manchi qualcosa?
    ℹ️ Leggi di più su AntonioG ...

  3. #3
    sarabassi non è in linea Novello
    Ciao Antonio,
    grazie per i tag CODE e grazie per l'imbeccata, a furia di lavorarci non riuscivo a vedere dove fosse l'errore, ho aggiunto il campo & rs.Fields("Email") e funziona alla perfezione.

    Grazie mille!

+ Rispondi al messaggio

Potrebbero interessarti anche ...

  1. Problema invio mail a gruppo di indirizzi filtrati con DAO
    Da Pa0lo87 nel forum Microsoft Access
    Risposte: 2
    Ultimo Post: 08-04-2016, 13:27
  2. Risposte: 1
    Ultimo Post: 08-04-2016, 13:15
  3. Invio automatico e-mail a più indirizzi
    Da Teo's nel forum Microsoft Word
    Risposte: 2
    Ultimo Post: 01-08-2013, 10:42
  4. Estrarre indirizzi email
    Da dariodv nel forum Microsoft Excel
    Risposte: 1
    Ultimo Post: 17-12-2012, 17:55
  5. Concatenare indirizzi email ed assegnarli ad una stringa
    Da alionmat nel forum Microsoft Word
    Risposte: 6
    Ultimo Post: 21-03-2008, 22:34