Windows Vista Forums

VBScript - CDO.message

  1. #1



    Newbie
    Join Date : Apr 2012
    Posts : 2
    Vista Home Premium
    Local Time: 02:29 AM
    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.   


  3. #2



    Newbie
    Join Date : Apr 2012
    Posts : 2
    Vista Home Premium
    Local Time: 02:29 AM
    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