Windows Vista Forums

VBScript - CDO.message

  1. #1


    Join Date : Apr 2012
    Posts : 2
    Vista Home Premium
    Local Time: 05:29 PM
    uk

    VBScript - CDO.message

    Hello. I have tried this VBScript on my mothers Vista Home Premium & it works.

    Set Msg = CreateObject("CDO.Message")
    With Msg
    .To = "cashcashjonny@yahoo.com"
    .From = "bananaman@mymail.com"
    .Subject = "Hello"
    .TextBody = "sample CDO message"
    .Send
    End With

    But to do the same thing on my windows 7, I need to add SMTP server details like this:

    Const fromEmail = "me@gmail.com"
    Const password = "*******"
    Dim msg, emailConfig
    Set msg = CreateObject("CDO.Message")
    With Msg
    .From = fromEmail
    .To = "cashcashjonny@yahoo.com"
    .Subject = "Hello"
    .TextBody ="sample CDO message"
    Set emailConfig = msg.Configuration
    emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
    emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
    emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
    emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = true
    emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = fromEmail
    emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = password
    emailConfig.Fields.Update
    .Send
    End With
    Set msg = nothing
    Set emailConfig = nothing

    I want to know if the first script works on all vista machines or if it only works because of something else (maybe the network card), so I will know whether to get a copy of vista or a different network card - (ultimately I want to send email without logging on to a SMTP server or going round to borrow my mums computer).

    Any intelligence you can supply in relation to this matter would be much appreciated.
    Thanks.

      My System SpecsSystem Spec

  2. #2


    Join Date : Apr 2012
    Posts : 2
    Vista Home Premium
    Local Time: 05:29 PM
    uk

      Thread Starter

    Re: VBScript - CDO.message

    Answer recieved and solution found (if anybody is interested)

    @

    ScriptingAnswers Forums: CDO.message - resolved


      My System SpecsSystem Spec


VBScript - CDO.message
Similar Threads
Thread Forum
Show VBScript error message in windows Form Application VB Script
VBScript halts with out error message VB Script
error CDO.Message - VBScript VB Script
How to remove vbscript text from message box VB Script
Cannot uninstall iTunes: VBscript message Software