Caro Joe, io ho risolto così; vedi se ti può servire
Sub OUTLOOKMESSAGGIInvia() On Error Resume Next 'Working in Office 2000-2010 Dim OutApp As New Outlook.Application Dim OutMail As Outlook.MailItem Dim Messaggio As String Set OutMail = OutApp.CreateItem(0) strbody = "Auguri di Buon anno NUOVO" With OutMail .To = "pincopallo@miamial.it" .CC = "pincopallino@miamial.it" .BCC = "" .Subject = "Auguri" .Body = strbody .Attachments.Add ("Allegato.pdf") .Send 'or use .Display End With On Error GoTo 0 Set OutMail = Nothing Set OutApp = Nothing End Sub