Send Mail in code (VB6)

Topic

New Reply

I recently changed from using code that relied on having Outlook open to send mail from a stand alone document
processing program to the following code which does not require the overhead of another program, it works well
from my developer PC but fails on the production PC with the error:

[indent]

---

The “SendUsing” configuration value is invalid.

---

[/indent]

        Dim objMsg As New CDO.Message
        Dim objConf As New CDO.Configuration
        Dim Flds As ADODB.Fields

        Msg = "One or more new Public Chapter documents received."

        Set Flds = objConf.Fields
        With Flds
            .Item(cdoSendUsingMethod) = cdoSendUsingPort
            .Item(cdoSMTPServer) = "mail2k3"
            .Item(cdoSMTPConnectionTimeout) = 100
            .Item(cdoURLGetLatestVersion) = True
            .Update
        End With
        
        With objMsg
            'use for testing
            .To = "receiver@receiver.com" & "  "
            .From = "sender@send.com" & "  "
            .Subject = "Public Chapter Received"
            .TextBody = Msg & vbCrLf
            .Send
        End With

Any suggestions would be greatly appreciated.
Bob

Reply | Quote