Question

我对编写VB脚本比较陌生。基本上，我需要获得一个正常运行的VB脚本，以便向多个收件人发送电子邮件，这些邮件会改变每封电子邮件我需要它具有主题行，电子邮件正文，附件和灵活性，以在TO，CC和BCC字段中添加多个收件人，而无需为TO字段中的每个电子邮件地址添加单独的Add.Recipient行。有没有人有任何建议或知道任何资源来查找这些信息？

我看了我自己，并且有点空白。我在seperate.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 email1@email.com email2@email.com y:\folder\test.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

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

1 个答案: