If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below. |
|
|
Thread Tools | Display Modes |
#1
|
|||
|
|||
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 |
#2
|
|||
|
|||
Will not send
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 |
Thread Tools | |
Display Modes | |
|
|