Hi
I'm using Dmitry Streblechenko's "Redemption" Outlook add-in to allow me to automatically send mail via VBS without being bothered by the Microsoft secuirty warnings.
So far this works great - but I'm raising the stakes.
We use Zetafax for MSExchange and this allows us to send e-mails to addresses like fred@0154554443 and they are delivered as faxes.
So, in theory, I should be able to use my VBS code to send to fax address also.... or so I thought!
When the script executes I get the error "Could not resolve the message recipients". Strangely, the message DOES appear in my drafts folder and, if I open it and click on "Check Names", Outlook is able to resolve without error and I can send the fax.
Can anyone help? Below is a sample of my code:
-Andrew
I'm using Dmitry Streblechenko's "Redemption" Outlook add-in to allow me to automatically send mail via VBS without being bothered by the Microsoft secuirty warnings.
So far this works great - but I'm raising the stakes.
We use Zetafax for MSExchange and this allows us to send e-mails to addresses like fred@0154554443 and they are delivered as faxes.
So, in theory, I should be able to use my VBS code to send to fax address also.... or so I thought!
When the script executes I get the error "Could not resolve the message recipients". Strangely, the message DOES appear in my drafts folder and, if I open it and click on "Check Names", Outlook is able to resolve without error and I can send the fax.
Can anyone help? Below is a sample of my code:
Code:
Dim OutlookMessage, oItem, oBCC
Set OutlookApp = CreateObject("Outlook.Application")
Set Namespace = OutlookApp.GetNamespace("MAPI")
Namespace.Logon
set OutlookMessage = CreateObject("Redemption.SafeMailItem")
set oItem = OutlookApp.CreateItem(0)
oBCC = "A N Other@01689 824334"
With OutlookMessage
.Item = oItem
.BCC = oBcc
.Subject = "Test fax"
.Body = "Faxing via Redemption and Zetafax."
.Send
End With
set Utils = CreateObject("Redemption.MAPIUtils")
Utils.DeliverNow
Utils.Cleanup-Andrew
