Contributions
Email sending via script is not working
Hi i am trying to send email through scripts but it is not working. do we need any dll for the same ? i am getting error code in EnvelopeFields : "The requested property or feature, while supported, is not available at this time or in this context." please correct me if am missing any steps . i am using below code .. function Test() Call SendEmail("EMAIL from", "EMAIL to", "Test", "TestMessage", "") End function Function SendEmail(mFrom, mTo, mSubject, mBody, mAttachment) On Error Resume Next Dim smtpServer, smtpPort, userLogin, userPassword Dim authenticationType, useSSL, connectionTimeout Dim schema, mConfig, mMessage smtpServer = "" ' provided required smtpserver. smtpPort = 587 userLogin = "anita.desai" ' e.g. "abc" if the address is abc@gmail.com userPassword = "Tieto5890" authenticationType = 1 ' cdoBasic ' connectionTimeout = 30 schema = "http://schemas.microsoft.com/cdo/configuration/" Set mConfig = Sys.OleObject("CDO.Configuration") mConfig.Fields.Item(schema & "sendusing") = 2 ' cdoSendUsingPort mConfig.Fields.Item(schema & "smtpserver") = smtpServer mConfig.Fields.Item(schema & "smtpserverport") = smtpPort mConfig.Fields.Item(schema & "sendusername") = userLogin mConfig.Fields.Item(schema & "sendpassword") = userPassword mConfig.Fields.Item(schema & "smtpauthenticate") = authenticationType mConfig.Fields.Update() Set mMessage = Sys.OleObject("CDO.Message") Set mMessage.Configuration = mConfig mMessage.From = mFrom mMessage.To = mTo mMessage.Subject = mSubject mMessage.HTMLBody = mBody If 0 < Len(mAttachment) Then mMessage.AddAttachment(mAttachment) End If mMessage.Send() If Err.Number > 0 Then Call Log.Error("E-mail cannot be sent", Err.Description) SendEMail = False Err.Clear() Else Log.Message("Message to <" & mTo & "> was successfully sent") SendEMail = True End If End Function4.9KViews0likes1Comment