MS-Access through Outlook - Sender's Name?

[Reric99]

Hi,

I wrote below email to send a list of emails to addressees.
Since I'm asked to send below email on behalf of my manager, Joe Jones, in which command/attribute should I put his name? Is there anything like .FROM ?

' ---------- Source Function ------------
Public Function PrintEmail(reportType As String)

Dim strMessage As String
Dim strEmail As String
Dim strMsg As String
Dim strTO As String
Dim strReportName As String
Dim oLook As Object
Dim oMail As Object

Dim db As DAO.Database
Dim rs As DAO.Recordset

Set db = CurrentDb
Set rs = db.OpenRecordset("SELECT * FROM RERIC_X_" & reportType)

strMessage = "Dear Representative:" & Chr(13) & Chr(13)
strMessage = strMessage & "Please find attached your latest Report." strMessage = strMessage & Chr(13) & Chr(13)
strMessage = strMessage & "Thank you," & Chr(13) & Chr(13)
strMessage = strMessage & "Reric99"

While Not rs.EOF

Debug.Print rs.Fields(0)

strTO = rs.Fields(3)
strReportName = rs.Fields(2)

Set oLook = CreateObject("Outlook.Application")
Set oMail = oLook.createitem(0)
With oMail
.To = strTO
.body = strMessage
.Subject = "My Report"
.Attachments.Add (strReportName)

.Send

End With

rs.MoveNext

Wend

rs.Close

Set oMail = Nothing
Set oLook = Nothing
Set rs = Nothing

End Function

' ---------- End of Function ------------

Thank you very much,
Reric99

[Delerna]

yes there shoud be

try typing oMail. (don't forget the period) into your code somewhere and check the intellisense list