Hi Guys,
I am new to UiPath need some input and suggestions
i am trying send email using by using VB Script.
I am using InvokeCode and Invoke VBscript activities but not working.
My requirement is email reply should go to particular email id not to the sender
Can anyone please help
’ VBScript to Send Email Notification
’ Author: https://helloacm.com
’ Usage: cscript.exe sendemail.vbs email subject text
’ 23/Dec/2014
Sub SendEmail(ToAddress, Subject, Text)
Dim iMsg
Dim iConf
Dim Flds
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
iConf.Load -1
Set Flds = iConf.Fields
With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "dummyemployee03@gmail.com"
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "password"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com" 'smtp mail server
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465 'stmp server
.Update
End With
With iMsg
Set .Configuration = iConf
.To = ToAddress
.From = "dummyemployee03@gmail.com"
.Subject = Subject
.TextBody = Text
.ReplyTo="dummyemployee5@gmail.com"
.AddAttachment "C:\Users\Golden\Documents\CEIPAL_Resumes\img20200707_21255890-converted-compressed.pdf"
.Send
End With
Set iMsg = Nothing
Set iConf = Nothing
End Sub
If WScript.Arguments.Count <> 3 Then
WScript.Echo “Usage: cscript.exe " & WScript.ScriptFullName & " email subject text”
Else
SendEmail WScript.Arguments(0), WScript.Arguments(1), WScript.Arguments(2)
End If