Mi servirebbe il codice Vba. Devo creare un modulo o vado su foglio?
Dovrebbe essere qualcosa del genere, ma devo mettere assieme le due cose email massiva + allegato pdf
- Codice: Seleziona tutto
Sub SendEmail()
Dim OutlookApp As Object
Dim MItem As Object
Dim cell As Range
Dim email_ As String
Dim subject_ As String
Dim body_ As String
Dim attach_ As String
'Create Outlook object
Set OutlookApp = CreateObject("Outlook.Application")
'Loop through the rows
For Each cell In Columns("a").Cells.SpecialCells(xlCellTypeConstants)
email_ = cell.Value
subject_ = cell.Offset(0, 1).Value
body_ = cell.Offset(0, 2).Value
attach_ = cell.Offset(0, 3).Value
'Create Mail Item and send it
Set MItem = OutlookApp.CreateItem(0)
With MItem
.To = email_
.Subject = subject_
.Body = body_
'.Attachment = "attach_"
.Display
End With
Next
End Sub
Sub AddAttachment()
Dim myItem As Outlook.MailItem
Dim myAttachments As Outlook.Attachments
Set myItem = Application.CreateItem(olMailItem)
Set myAttachments = myItem.Attachments
myAttachments.Add "C:\Benutzer\pc\Desktop\Allegato.pdf", _
olByValue, 1, "Test"
myItem.Display
End Sub
Forse c´entra anche istruzione row
Email To Subject Body Attachment
Email cliente 1 Subject 1 Prenderlo da documento di word collegato ad excel (indicare path eventualmente). Prenderlo da dentro cartella posizionata su percorso. Ad esempio C:\Desktop… File sempre uguale per tutti i clienti
Email cliente 2 Subject 2 Preso sempre da stesso documento di word collegato ad excel ma con dati del 2° cliente nei rispettivi campi stavolta Prenderlo da dentro cartella posizionata su percorso. Ad esempio C:\Desktop… File sempre uguale per tutti i clienti
Email cliente 3 Subject 3 Preso sempre da stesso documento di word collegato ad excel ma con dati del 3° cliente nei rispettivi campi stavolta Prenderlo da dentro cartella posizionata su percorso. Ad esempio C:\Desktop… File sempre uguale per tutti i clienti …
