CDOSYS

Bob Bedell · February 14th, 2006, 01:35 AM

Hi,

I'm using the following code to try and send an e-mail via SMTP. THe e-mail gets created OK, but ends up in my C:\Inetpub\mailroot\Drop folder on my local SMTP server. Anybody know what I have to do to get it sent?

Thanks,

Bob

Code:

Sub SendMail1()


Dim MailMsg As CDO.Message, MailConf As CDO.Configuration, MCFields As Object

    Set MailMsg = New CDO.Message

    Set MailConf = New CDO.Configuration

    Set MCFields = MailConf.Fields



    Rem use the following when writing vbscript

    'Dim MailMsg As Object, MailConf As Object, MCFields As Object

    'Set MailMsg = CreateObject("CDO.Message")

    'Set MailConf = CreateObject("CDO.Configuration")

    'Set MCFields = MailConf.Fields

        '       Configure SMTP Mail
    'MCFields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1
    MCFields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2  '  SMTP

    'MCFields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory") = "c:\inetpub\mailroot\pickup"
    MCFields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"  'SMTPServer

'    MCFields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = SMTPPasswd
'
'    MCFields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = SMTPUID

    MCFields.Item(cdoSMTPAuthenticate) = cdoNTLM

    MCFields.Update

    Set MailMsg.Configuration = MailConf

    MailMsg.TextBody = "testing e-mail"

    MailMsg.Subject = "testing e-mail"

    MailMsg.To = "[email protected]"

    MailMsg.From = "me"

    MailMsg.Send

End Sub

Bob Bedell · February 14th, 2006, 10:16 AM

I found a herd of e-mail messages created by this code in my C:\Inetpub\mailroot\Queue directory. The relay interval is set to 15 minutes but none of the messages get sent out. I'm just using the default installation of SMTP on my localhost IIS server and trying to send messages to my own e-mail address at [email protected]? Any idead how to tweak the code to do this?

Thanks again,

Bob