Thread: Email .From
View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
Cavy Cavy is offline
external usenet poster
 
Posts: 13
Default Email .From

Hi there,

I have a working routine to send out specific emails with attachments.
How can i define the .from property of the email?

Here is my code:

Function SendEmail()
Dim myOutlook As Object
Dim MymailItem As Object
Set otlApp = CreateObject("outlook.application")
Set otlNewMail = otlApp.createitem(olmailitem)
Set Template = ActiveWorkbook

ThisWorkbook.Activate

With otlNewMail
'.from = " 'This line gives error
.To = "
.deferreddeliverytime = Range("DeliveryTime")
.Subject = "Rates Update "
.readreceiptrequested = True
.attachments.Add Template.FullName
.display
.send
End With
End Function

Thanks!!