Results 1 to 6 of 6

Thread: Send a fax

  1. #1

    Send a fax

    Is there a way to fax something via the computer? Such as setting something up as an attachment to an email (see below vba) but instead of sending the attachment in an email could it fax it to a certain fax number?

    Sub SendMail() 
        Dim oOutlook As Object 
        Dim oMailItem As Object 
        Dim oRecipient As Object 
        Dim oNameSpace As Object 
        Dim Lastrow As Long 
        Dim bodyText As String 
        Dim i As Long 
        Set oOutlook = CreateObject("Outlook.Application") 
        Set oNameSpace = oOutlook.GetNameSpace("MAPI") 
        oNameSpace.Logon , , True 
        Set oMailItem = oOutlook.CreateItem(0) 
        With oMailItem 
            Set oRecipient = .Recipients.Add("[EMAIL=""][/EMAIL]") 
            oRecipient.Type = 1 
            .Subject = "Avalon Trade Allocations Attached" 
            .body = "Please see the attached trade allocations." & vbNewLine & vbNewLine & _ 
            "Let me know if you need anything else." & vbNewLine & vbNewLine & _ 
            "Thanks, " & vbNewLine & vbNewLine & _ 
            "Katherine Lartigue " & vbNewLine & _ 
            "[EMAIL=""][/EMAIL] 713-238-2088" 
            .Attachments.Add ("G:\Katherine Lartigue\Allocations\Merrill Lynch Trades.xls") 
        End With 
    End Sub 
    Formatting tags added by mark007

  2. #2
    I have somethiing like this but it says I need a fax service. Is there a way to go about this without using a fax service?

    Sub Fax() 
        ActiveWorkbook.SendFaxOverInternet _ 
        "Thomas Giles @ 17132382051", _ 
        "Please process the enclosed trade ticket. Thanks, Katherine Lartigue ", True 
    End Sub 
    Formatting tags added by mark007

  3. #3
    And i did make sure that on excel, the windows fax feature is enabled.

  4. #4
    Just send it to MSWord and then print to your fax printer.

  5. #5
    I am trying to fax to an outside source so if I print to my fax printer, at what point do i enter the outside fax # im trying to fax to?

  6. #6
    Like all print operations, you will get a print dialog. You can probably use SendKeys() to fill it.

    Here is what I got when I recorded it.
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _ 
    Formatting tags added by mark007
    You can then run your Outlook operation to send the emails.

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts