Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations gkittelson on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

To Address - Exchange Server/Rightfax

Status
Not open for further replies.

cruford

Programmer
Dec 6, 2002
138
US
How do I send to an email address that is not in our exchange server and does not have the typical syntax of an email. The address looks like this when all put together

name@/FN=15555555555

Where 5555555555 is the fax number that Rightfax will pickup and fax the attachments too. When I attempt to send to this via VBA code in access it fails stating it cannot resolve this address. I have this address saved as a contact and I can forward messages to it and our Rightfax system picks it up.

The contact is a little different then normal as the "Email Type" field is "RFAX" instead of SMTP. Anyone have any ideas?

Systems:
Exchange 2003
Access 2000
Rightfax 8.5

Code:
Public Function MailIt(strTo, strFaxNum, strAttachmentArray(), intAttachmentCount)
  Dim oApp As New Outlook.Application
  Dim oNameSpace As Outlook.NameSpace
  Dim oMailItem As Outlook.MailItem
  Dim I As Integer
  Dim objNet As New WshNetwork
  
  Set oNameSpace = oApp.GetNamespace("MAPI")
  Set oMailItem = oApp.CreateItem(olMailItem)
  With oMailItem
    .Recipients.Add strTo & "@/FN=1" & strFaxNum
    For I = 0 To UBound(strAttachmentArray) - 1
      .Attachments.Add strAttachmentArray(I)
    Next
    .SentOnBehalfOfName = objNet.UserName & "@" & objNet.UserDomain & ".local"
    .Send
  End With
End Function
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top