How can I reply email using vbs

Question

I'm trying to get mailitem by Outlook.application object, and reply email by certain subject naming rule. Now I'm able to get the mailitem, filter the mail by its subject. How can I move the next step to reply email? Thanks

Belo is my code so far:

Set objOutlook = CreateObject("Outlook.Application")
Set MailItem = objOutlook.Session.Folders("XXX@XXX.com")
For Each eMail in MailItem.Items
    If InStr(1,Trim(eMail.Subject),"Production",vbTextCompare) > 0 then
    wscript.echo "This is needed email, need to reply"
    End If
Next

score 0 · Accepted Answer · answered Jul 31 '21 at 23:18

0

For wscript use, you can modify the example found in Outlook Reply or ReplyAll to an Email

You pull eMail in your loop of Mail items

Use this in place of wscript.echo line

Set olReply = eMail.ReplyAll
olReply.HTMLBody = "Hello, Thank you. " & vbCrLf & olReply.HTMLBody
olReply.Display
olReply.Send

answered Jul 31 '21 at 23:18

dbmitch

5,361
4
24
38

I replace the code of wscript.echo line and it works! Thanks a lot! – user771022 Aug 01 '21 at 19:49
Excellent - please mark it as an answer then - welcome to Stack Overflow – dbmitch Aug 01 '21 at 21:03

How can I reply email using vbs

1 Answers1