Consulting

Results 1 to 6 of 6

Thread: Send a fax

Hybrid View

Previous Post Previous Post   Next Post Next Post
  1. #1
    VBAX Mentor
    Joined
    Aug 2011
    Posts
    353
    Location

    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?

    [VBA]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("klartigue@avalonadvisors.com")
    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 & _
    "klartigue@avalonadvisors.com 713-238-2088"

    .Attachments.Add ("G:\Katherine Lartigue\Allocations\Merrill Lynch Trades.xls")
    .Send
    End With

    End Sub
    [/VBA]

  2. #2
    VBAX Mentor
    Joined
    Aug 2011
    Posts
    353
    Location
    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?

    [VBA]Sub Fax()

    ActiveWorkbook.SendFaxOverInternet _
    "Thomas Giles @ 17132382051", _
    "Please process the enclosed trade ticket. Thanks, Katherine Lartigue ", True

    End Sub
    [/VBA]

  3. #3
    VBAX Mentor
    Joined
    Aug 2011
    Posts
    353
    Location
    And i did make sure that on excel, the windows fax feature is enabled.

  4. #4
    VBAX Guru Kenneth Hobs's Avatar
    Joined
    Nov 2005
    Location
    Tecumseh, OK
    Posts
    4,956
    Location
    Just send it to MSWord and then print to your fax printer.

  5. #5
    VBAX Mentor
    Joined
    Aug 2011
    Posts
    353
    Location
    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
    VBAX Guru Kenneth Hobs's Avatar
    Joined
    Nov 2005
    Location
    Tecumseh, OK
    Posts
    4,956
    Location
    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. [VBA] ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
    IgnorePrintAreas:=False[/VBA]

    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
  •