Specify SenderEmailAccount in VBA

  • Thread starter Thread starter Song Su
  • Start date Start date
S

Song Su

Access 2007

I want to specify SenderEmailAddress. When I add .SenderEmailAddress = "someone @ yahoo.com", it gives me "Can't assign read only property" error message when compiling. Here is my code:

Private Sub cmdEmail_Click()
If IsNull(Me.Email) Then
MsgBox "No email address.", , conAppName
Else
Dim olApp As Outlook.Application
Dim objMail As Outlook.MailItem
Dim ctlBody As String

Set olApp = Outlook.Application
Set objMail = olApp.CreateItem(olMailItem)
ctlBody = "Dear " & IIf([Sex] = "M", "Mr. ", "Ms. ") & StrConv([FIRSTName], 3) & " " & IIf(IsNull([M]), "", [M] & ". ") & StrConv([LASTName], 3) & ","
With objMail
' I insert code here but cannot compile
.To = Me.Email
.BodyFormat = olFormatHTML
.HTMLBody = "<HTML><BODY>" & ctlBody & "</p></BODY></HTML>"
.Display
End With

Set objMail = Nothing
Set olApp = Nothing
End If
End Sub
 
But I already setup my outlook with multiple email accounts and they all
tested ok. How to pick the FROM account that is not default email account?
Manually, Outlook allows me to pick FROM. How to do it programmatically?

My actual situation is: The office hire several student workers to work on
the database application. Each student worker log into his/her own network
account. However, we want email sent from generic office email account
(elac_iso), not student worker's own outlook mail account. This way, we can
centralize out going and incomming emails in elac_iso account.

bhicks11 via AccessMonster.com said:
Hi Song Su:

Yes, that property cannot be set - it is read only. The sender email is
the
actual sender. If you could set it, you could be impersonating someone.

However, see if this link helps:

http://support.microsoft.com/Kb/Q232309

Bonnie
http://www.dataplus-svc.com

Song said:
Access 2007

I want to specify SenderEmailAddress. When I add .SenderEmailAddress =
"someone @ yahoo.com", it gives me "Can't assign read only property" error
message when compiling. Here is my code:

Private Sub cmdEmail_Click()
If IsNull(Me.Email) Then
MsgBox "No email address.", , conAppName
Else
Dim olApp As Outlook.Application
Dim objMail As Outlook.MailItem
Dim ctlBody As String

Set olApp = Outlook.Application
Set objMail = olApp.CreateItem(olMailItem)
ctlBody = "Dear " & IIf([Sex] = "M", "Mr. ", "Ms. ") &
StrConv([FIRSTName], 3) & " " & IIf(IsNull([M]), "", [M] & ". ") &
StrConv([LASTName], 3) & ","
With objMail
' I insert code here but cannot compile
.To = Me.Email
.BodyFormat = olFormatHTML
.HTMLBody = "<HTML><BODY>" & ctlBody & "</p></BODY></HTML>"
.Display
End With

Set objMail = Nothing
Set olApp = Nothing
End If
End Sub
Click to expand...
Click to expand...
 
Back
Top