VB脚本用于发送邮件添加多个变量收件人

Question

我对编写VB脚本比较陌生。从本质上讲，我需要得到一个功能的VB脚本发送电子邮件给多个收件人，其中每个电子邮件各不相同。我需要它有主题行，电子邮件正文，附件和灵活性，在to, CC和密件抄送字段中添加多个收件人，而无需添加单独的行。收件人在to字段中的每个电子邮件地址。有人有任何建议或知道任何资源来找到这些信息吗?

我自己也看了一下，结果有些茫然。我在一个单独的。txt文件中设置了参数。这些会不断变化。我正试图尽可能快而有效地做这件事。

我也没有太多的运气与Add.CC命令，所以我把它在这个例子中…下面是我现在写出来的

Set args = WScript.Arguments
arg1 = args.Item(0)  
arg2 = args.Item(1)
arg3 = args.Item(2)
ToAddress = ""&arg1&""
CCAddress = ""&arg2&""
MessageSubject = "Your Order"
MessageBody = "Please find your Order Attached" 
MessageAttachment = ""&arg3&""  
Set ol = WScript.CreateObject("Outlook.Application")
Set ns = ol.getNamespace("MAPI")
Set newMail = ol.CreateItem(olMailItem)
newMail.Subject = MessageSubject
newMail.Body = MessageBody & vbCrLf & MyTime
newMail.RecipIents.Add(ToAddress)
newMail.Attachments.Add(MessageAttachment)
newMail.Send

我把参数写成:

cscript //nologo test1.vbs [e-mail] [e-mail] y:foldertest.txt 

Answer 1

'Get email addresses, the -2 ignores the attachment
For x = 0 to WScript.Arguments.Count - 2 
    Msgbox Wscript.Arguments(x) & "Count " & x
Next
Msgbox Wscript.Arguments(wscript.arguments.count - 1) & " Attachment"

在编程中，我们主要使用过程步骤，就像你所做的那样。然而，我们经常需要做循环。因为除了最后一个我们都想要最后一个我用了一个For x =循环。For Each循环通常是更好、更简洁的代码。

输出所有参数

For each Ag in WScript.Arguments 
    Msgbox Ag 
Next