Public Sub componiMailOutlook(destinatari As String, destinatariCC As String, destinatariBcc As String, oggettoMail As String, fileAllegati As String)
Dim OutApp As Object
Dim OutMail As Object 'sarebbe un oggetto MailItem
Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
.display
.To = destinatari
If destinatariCC <> "" Then
.cc = destinatariCC
End If
If destinatariBcc <> "" Then
.BCC = destinatariBcc
End If
.subject = oggettoMail
'.htmlbody = testoMail
If fileAllegati <> "" Then
.Attachments.Add fileAllegati
End If
.Readreceiptrequested = False
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
End Sub
