Option Explicit
Sub mailviamail()
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''richiede l'attivazione della libreria microsoft outlook 14.0 object library''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  Dim OutApp As Object
  Dim OutMail As Object
  Dim wb As Workbook
  Dim ws As Worksheet
  Dim strAdd As String
  Dim strBody As String
  Dim x As Long, i As Long
  Set wb = ThisWorkbook
  Set ws = wb.Sheets(1) ''qui il foglio con l'elenco
  Set OutApp = CreateObject("Outlook.Application")
  OutApp.Session.Logon
  With ws
    x = .Range("A" & Rows.Count).End(xlUp).Row
    For i = 2 To x
      Set OutMail = OutApp.CreateItem(0)
      strAdd = .Range("A" & i) 'QUI METTERE LA COLONNA DOVE HAI L'INDIRIZZO
      strBody = "Campo 1: " & .Range("B" & i) & vbCrLf & vbCrLf & _
      "Campo 2: " & .Range("C" & i) & vbCrLf & vbCrLf & _
      "Campo 3: " & .Range("D" & i) & vbCrLf & vbCrLf & _
      "Campo 4: " & .Range("E" & i) & vbCrLf & vbCrLf
      On Error Resume Next
      With OutMail
        .To = strAdd
        .CC = ""
        ''.Attachments.Add ("C:	uo_file.pdf")  'QUI GLI ALLEGATI
        .BCC = ""
        .Subject = "Oggetto che vuoi mettere"
        .Body = strBody
        .Send 'or use .Display
        .ReadReceiptRequested = False
      End With
      Set OutMail = Nothing
    Next i
  End With
  Set OutApp = Nothing
  Set wb = Nothing
  Set ws = Nothing
End Sub