Sub InvioMail()
Dim URL As String
Dim Destinatario As String
Dim Body As String
Dim Oggetto As String
Dim Firma As String
Dim Saluti As String
Dim c As Integer
Dim r As Integer
Dim s As String
'A2,A3, ... mail
'B2,B3, ... riga1
'C2,C3, ... riga2
Range("A2").Select
r = 2
Do While Cells(r, 1).Value <> ""
URL = ""
s = ""
Destinatario = Cells(r, 1).Value
Oggetto = "RID"
For c = 2 To 4
s = s & Cells(r, c).Value & "%0A"
Next c
Body = s
URL = "mailto:" & Destinatario & "?subject=" & Oggetto & "&body=" & Body & Firma & "%0A" & Saluti
ActiveWorkbook.FollowHyperlink URL
r = r + 1
Loop
End Sub
|