Visual Basic Programming Code Examples Visual Basic > Internet Web Mail Stuff Code Examples Send a fax using Microsoft Outlook Send a fax using Microsoft Outlook The following code demostrates how to send a fax using Microsoft Outlook. 'Purpose : Sends a fax using Outlook and Microsoft Fax 'Inputs : sFaxNumber The fax number to send the fax to. ' sSubject The fax subject. ' sBody The fax body. ' [sFileName] The file to fax. 'Outputs : Returns an empty string on success, else returns an error description 'Notes : Will return a "System Adminstrator" undeliverable message if you do not have ' Microsoft Fax installed. Function OutlookSendFax(sFaxNumber As String, sSubject As String, sBody As String, Optional sFileName As String) As String Dim oOutlook As Object 'Outlook.Application Dim oFax As Object 'Outlook.MailItem On Error GoTo ErrFailed Set oOutlook = CreateObject("Outlook.Application") Set oFax = oOutlook.CreateItem(0) 'olMailItem With oFax .To = "[Fax:" & sFaxNumber & "]" .Subject = sSubject .Body = sBody If Len(sFileName) Then If Len(Dir$(sFileName)) Then 'Add attachment .Attachments.Add sFileName End If End If .Send End With Set oFax = Nothing Set oOutlook = Nothing OutlookSendFax = "" 'Return success Exit Function ErrFailed: 'Failed, return error description OutlookSendFax = "Error in OutlookSendFax: " & Err.Description End Function 'Demonstration routine Sub Test() OutlookSendFax "020 7773 1994", "TEST SUBJECT", "TEST BODY", "c:\myfile.doc" End Sub