Forum Discussion

anita_desai's avatar
anita_desai
12 years ago

Main sending through scripts using CDO is not working

Below code i am using for sending mail through scripts. But this code is not working on my machine. but it works on my colleage machine. Do we require any settings or any dll for the same. ...
vajindarladdad's avatar
vajindarladdad
Frequent Contributor
12 years ago
Hi Anita,

Corrected your function below.



Please define the variables that you are going to use in your function.




Public Function SendEmail()



On Error Resume Next



Dim strSchema



strSchema = "http://schemas.microsoft.com/cdo/configuration/"



Set mConfig = Sys.OleObject("CDO.Configuration")



mconfig.Fields.Item(strSchema + "sendusing") = 2



mconfig.Fields.Item(strSchema + "smtpserver") = "inbound.tieto.com"



mconfig.Fields.Item(strSchema + "smtpserverport") = 25



mconfig.Fields.Item(strSchema + "smtpauthenticate") = 2



'mconfig.Fields.Item(strSchema + "smtpusessl") = false



'mconfig.Fields.Item(strSchema + "sendusername") = ""



'mconfig.Fields.Item(strSchema + "sendpassword") = ""



mconfig.Fields.Update()



Set mMessage = Sys.OleObject("CDO.Message")



mMessage.Configuration = mconfig



mMessage.From = "anita.desai@tieto.com"



mMessage.To = "anita.desai@tieto.com"



mMessage.Cc = ""



mMessage.Subject = "Test"



mMessage.HTMLBody = "TestMessage"



mMessage.Send



On Error GoTo 0



End Function