Sending Outlook mail using Redemption

[yeti]

Hello,

I'm trying to use a simple vbscript to send an e-mail via outlook 2003. To get around the pop-up security warning message I'm using the "Redemption" COM library.

For a few days my code seemed to work - but now I get the following error message: Could not submit the message - error 0x80004005, Source: Redemption.SafeMailItem.

The message correctly appears in Outlook's 'drafts' folder - but does not get sent. Could this be because Redemption has not be registered properly?

Can anyone help? My short script is as follows:

set Application = CreateObject("Outlook.Application")
set Namespace = Application.GetNamespace("MAPI")
Namespace.Logon

dim SafeItem, oItem 
set SafeItem = CreateObject("Redemption.SafeMailItem")
set oItem = Application.CreateItem(0)
SafeItem.Item = oItem
SafeItem.to = "someone@somewhere.com" 
SafeItem.Subject = "Testing Redemption" 
SafeItem.Body = "Hello World"
[red]SafeItem.Send[/red]

set Utils = CreateObject("Redemption.MAPIUtils")
Utils.Cleanup

The error appears to occur on the line highlighted in [red]red[/red].

Many thanks
Andrew

 

[Jokada]

Try this one you only need an smtp server thats all

Set m_objCDO = CreateObject("CDO.Message")
Set m_objCDOcon = CreateObject("CDO.Configuration")

Const cdoSendUsingMethod = "

http://schemas.microsoft.com/cdo/configuration/sendusing"

Const cdoSendUsingPort = 2
Const cdoSMTPServer = "

http://schemas.microsoft.com/cdo/configuration/smtpserver"

Const cdoSMTPServerPort ="

http://schemas.microsoft.com/cdo/configuration/smtpserverport"

Const cdoSMTPConnectionTimeout = "

http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout"

Const cdoSMTPAuthenticate = "

http://schemas.microsoft.com/cdo/configuration/smtpauthenticate"

Const cdoBasic = 1
Const cdoSendUserName = "

http://schemas.microsoft.com/cdo/configuration/sendusername"

Const cdoSendPassword = "

http://schemas.microsoft.com/cdo/configuration/sendpassword"

meldung = "Dear Sir, <br> your message"
'Sending email notification

Set Fields = m_objCDOcon.Fields
'Setting up Message parameters
With Fields
.Item(cdoSendUsingMethod) = cdoSendUsingPort
'Replace with your SMTP server
.Item(cdoSMTPServer) = "TAES-SMXV-01"
.Item(cdoSMTPServerPort) = 25
.Item(cdoSMTPConnectionTimeout) = 100
'Only used if SMTP server requires Authentication
'.Item(cdoSMTPAuthenticate) = cdoBasic
'.Item(cdoSendUserName) = "yourusername"
'.Item(cdoSendPassword) = "yourpassword"
.Update
End with

'Passing parameters to message object
Set m_objCDO.Configuration = m_objCDOcon

With m_objCDO
'Replace with email you wish the message to be sent to
.To = "somemail@mail.com"
'Replace with email you wish the message to be from
.From = "mail@microsoft.com"

' Attachment using known static physical path
'.AddAttachment "c:\Multiping.xls"
'.AddAttachment Server.MapPath("images/asp101-100x30.gif")
' Attachment added directly from a URL
'.AddAttachment "

http://users.pandora.be/jokada/some

file.htm"
'Replace with subject
.Subject = "Test subject"
'Replace with information you want to be sent
.HTMLBody = meldung
.Send
End With

cheers

 

[yeti]

Many thanks for your post - however I need to make sure that any mail sent appears in the users Sent Items folder. So I need to login to Outlook to do my stuff.

The good news is that, after a good nights sleep, I solved the problem a few minutes ago. There was nothing wrong with the code - instead, the problem was with MAPI.

It seems that Outlook was not the default mail app on my machine. Correcting this and re-registering MAPI to outlook solved the problem.

Thanks again!
Andrew