Will not send

I am using the following code with WinXP-Pro, and Visual Basic 6.0 SP5

The code works fine until the noted line
I have Outlook 2003 installed.

this function will attach my PDF file to the fax

Public Function SendFaxMessage(Optional AttachmentPath)
'Send the fax via Outlook.

Dim olookApp As Outlook.Application
Dim olookMsg As Outlook.MailItem
Dim olookRecipient As Outlook.Recipient
Dim olookAttach As Outlook.Attachment

' create the Outlook session.
Set olookApp = CreateObject("Outlook.Application")

' create the message.
Set olookMsg = olookApp.CreateItem(olMailItem)

With olookMsg
' add the To recipient(s) to the message.
Set olookRecipient = .Recipients.Add(frmCalls.txtCalls(3).Text & "@w"
& frmCalls.lblFaxNo.Caption) 'Get name and Fax no.
olookRecipient.Type = olTo

' add the CC recipient(s) to the message.
' Set olookRecipient = .Recipients.Add("") 'Name deleted.
' olookRecipient.Type = olCC

' set the Subject, Body, and Importance of the message.
.Subject = frmCalls.txtCalls(4).Text
.Body = "The fax is attached as a .pdf"
.Importance = olImportanceHigh 'High importance

' add attachments to the message.
If Not IsMissing(AttachmentPath) Then
Set olookAttach = .Attachments.Add(AttachmentPath)
End If

' resolve each Recipient's name
For Each olookRecipient In .Recipients
olookRecipient.Resolve
If Not olookRecipient.Resolve Then
olookMsg.Display ' display any names that can't be resolved
End If
Next
.Send 'This is where the error occurs.
End With

Set olookMsg = Nothing
Set olookApp = Nothing

End Function

--
Thanks in advance
bob

You need to post in a programming group.

--
Russ Valentine
[MVP-Outlook]
"Robert" wrote in message
...
I am using the following code with WinXP-Pro, and Visual Basic 6.0 SP5

The code works fine until the noted line
I have Outlook 2003 installed.

this function will attach my PDF file to the fax

Public Function SendFaxMessage(Optional AttachmentPath)
'Send the fax via Outlook.

Dim olookApp As Outlook.Application
Dim olookMsg As Outlook.MailItem
Dim olookRecipient As Outlook.Recipient
Dim olookAttach As Outlook.Attachment

' create the Outlook session.
Set olookApp = CreateObject("Outlook.Application")

' create the message.
Set olookMsg = olookApp.CreateItem(olMailItem)

With olookMsg
' add the To recipient(s) to the message.
Set olookRecipient = .Recipients.Add(frmCalls.txtCalls(3).Text & "@w"
& frmCalls.lblFaxNo.Caption) 'Get name and Fax no.
olookRecipient.Type = olTo

' add the CC recipient(s) to the message.
' Set olookRecipient = .Recipients.Add("") 'Name deleted.
' olookRecipient.Type = olCC

' set the Subject, Body, and Importance of the message.
.Subject = frmCalls.txtCalls(4).Text
.Body = "The fax is attached as a .pdf"
.Importance = olImportanceHigh 'High importance

' add attachments to the message.
If Not IsMissing(AttachmentPath) Then
Set olookAttach = .Attachments.Add(AttachmentPath)
End If

' resolve each Recipient's name
For Each olookRecipient In .Recipients
olookRecipient.Resolve
If Not olookRecipient.Resolve Then
olookMsg.Display ' display any names that can't be resolved
End If
Next
.Send 'This is where the error occurs.
End With

Set olookMsg = Nothing
Set olookApp = Nothing

End Function

--
Thanks in advance
bob