Hi, I use this code to send multiple email, but I get a "run time error
438" with .From field, as if it isn't supported.

Does anyone known the solution?


Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(olMailItem)
With OutMail
.From = "
.To = IndirizzoEmail
.Subject = Oggetto
.Body = TestoEmail
.OriginatorDeliveryReportRequested = False
.Display
End With
Set OutMail = Nothing