SendMailOLook

Sub SendMail(xoggetto As String, xbody As String, xdestinatario As
String)
Set myOutlook = CreateObject("Outlook.Application")
Set mymail = myOutlook.CreateItem(olMailItem)
mymail.Subject = xoggetto '"Inserire testo Oggetto"
mymail.Body = xbody '"Inserire testo da inviare"
mymail.Recipients.Add (xdestinatario)
mymail.Send
End Sub