| {\rtf1\ansi\ansicpg1252\deff0\deflang1044{\fonttbl{\f0\fnil\fcharset0 MS Sans Serif;}} \viewkind4\uc1\pard\f0\fs17 \par The following code demostrates how to send a fax using Microsoft Outlook. \par \par 'Purpose : Sends a fax using Outlook and Microsoft Fax \par 'Inputs : sFaxNumber The fax number to send the fax to. \par ' sSubject The fax subject. \par ' sBody The fax body. \par ' [sFileName] The file to fax. \par 'Outputs : Returns an empty string on success, else returns an error description \par 'Author : Andrew Baker \par 'Date : 09/03/2001 14:32 \par 'Notes : Will return a "System Adminstrator" undeliverable message if you do not have Microsoft Fax installed. \par 'Revisions : \par \par Function OutlookSendFax(sFaxNumber As String, sSubject As String, sBody As String, Optional sFileName As String) As String \par Dim oOutlook As Object 'Outlook.Application \par Dim oFax As Object 'Outlook.MailItem \par \par On Error GoTo ErrFailed \par Set oOutlook = CreateObject("Outlook.Application") \par Set oFax = oOutlook.CreateItem(0) 'olMailItem \par With oFax \par .To = "[Fax:" & sFaxNumber & "]" \par .Subject = sSubject \par .Body = sBody \par If Len(sFileName) Then \par If Len(Dir$(sFileName)) Then \par 'Add attachment \par .Attachments.Add sFileName \par End If \par End If \par .Send \par End With \par \par Set oFax = Nothing \par Set oOutlook = Nothing \par \par OutlookSendFax = "" 'Return success \par Exit Function \par \par ErrFailed: \par 'Failed, return error description \par OutlookSendFax = "Error in OutlookSendFax: " & Err.Description \par End Function \par \par 'Demonstration routine \par Sub Test() \par OutlookSendFax "020 7773 1994", "TEST SUBJECT", "TEST BODY", "c:\\myfile.doc" \par End Sub \par } |
Send a fax using Microsoft Outlook |
India web developer web development India | India web development company India ecommerce web developer