Dim iMsg
Dim iConf
Dim Flds
    
Dim smtpServer
Dim smtpServerPort

Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields

With Flds
    smtpServer = "192.168.0.2"
    'Send using External SMTP Server?
    If Len(smtpServer) > 0 Then
        .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'cdoSendUsingPort
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = smtpServer
        'Port (default to 25)
        smtpServerPort = 25
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = smtpServerPort
    End If
    
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 1
    .Update
End With

' Apply the settings to the message.
With iMsg
    Set .Configuration = iConf
    .To = "rob.kershaw@webhostautomation.com"
    .From = "rob.kershaw@webhostautomation.com"
    .Subject = "This is a test mail from script"
    .TextBody = "This is a test mail sent: "& Now
    .send
End With