CGiulio66 ha scritto:
Vi ringrazio per la pazienza e cercherò ancora una volta di essere chiaro. Devo inviare in modo automatico come allegato una tabella ad una lista dinamica di destinatari. Utilizzando l'azione macro IncludiOggettoDatabaseInMessaggioDiPostaElettronicama riesco a inviare il file ma i destinatari sono fissi. A me serve che i destinatari siano dinamici e non doverli inserire di volta in volta
Devi naturalmente impostare tabelle e tante altre belle cosette poi invia qualunque cosa a chi vuoi leggendo dalle tabelle che popoli dinamicamente
'Leggo la tabella degli indirizzi fino alla fine dei record
Do Until Tabella.EOF
CodCli = Tabella("CODICE_CLIENTE")
Email = Tabella("MAIL") 'legge il campo mail della tabella
'Invio le informazioni ad outlook
Set outApp = CreateObject("Outlook.Application")
Set outMsg = outApp.CreateItem(olMailItem)
With outMsg
.Importance = olImportanceHigh
.To = Email
.CC = ""
.BCC = ""
.Subject = Oggetto
.HTMLBody = Corpo & vbNewLine & vbNewLine & Signature ' aggiungo anche la firma al corpo
'leggo e allego gli allegati dalla casella di riepilogo
For I = 0 To Me.CRLINK.ListCount - 1
Me.CRLINK.Selected(I) = True
AttachArray(1) = Me.CRLINK.Column(0, I)
.Attachments.Add AttachArray(1), , , PDF_name ' ESCLUDO L'ALLEGATO MAIL
Next I
.Send 'invio la mail con gli allegti
End With
'AGGIORNA Il FLAG della mail inviata
With Tabella
.Fields("FLAG_INVIO") = True
.Update
End With
'End If 'FINE IF CONTA
Tabella.MoveNext
Loop