Klartigue
04-18-2012, 01:04 PM
Ok, I signed up to get an internet fax service.
This would be the vba
Sub Fax()
ActiveWorkbook.SendFaxOverInternet _
"17132382051@rcfax.com", _
"Please process the enclosed trade ticket. Thanks, Katherine Lartigue ", True
End Sub
Instead of emailing the message in my drafts..see vba code below that attaches an excel doc to an email and saves it in my draft, how do tell it to fax the email with the attachment instead of emailing it?
Sub EmailFidelity()
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\Fidelity Trades.xls")
.Save
End With
End Sub
This would be the vba
Sub Fax()
ActiveWorkbook.SendFaxOverInternet _
"17132382051@rcfax.com", _
"Please process the enclosed trade ticket. Thanks, Katherine Lartigue ", True
End Sub
Instead of emailing the message in my drafts..see vba code below that attaches an excel doc to an email and saves it in my draft, how do tell it to fax the email with the attachment instead of emailing it?
Sub EmailFidelity()
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\Fidelity Trades.xls")
.Save
End With
End Sub