Arrays vbscript-电子邮件生成器，用于将数据从InputBox写入数组，然后再写入电子邮件数量_Arrays_Vba_Email_Vbscript_Outlook

Arrays vbscript-电子邮件生成器，用于将数据从InputBox写入数组，然后再写入电子邮件数量

arrays vba email vbscript outlook

Arrays vbscript-电子邮件生成器，用于将数据从InputBox写入数组，然后再写入电子邮件数量,arrays,vba,email,vbscript,outlook,Arrays,Vba,Email,Vbscript,Outlook,旅程还在继续在本集中，我想尝试制作一个脚本，负责生成电子邮件现在我有一个输入框，它把所有的东西都放进去；将电子邮件地址分成一封电子邮件，但我希望每个地址都有一封电子邮件。我想把来自inputReqM的所有电子邮件放到数组中，然后一次读一行。第二件事-数组应该使更改用户名成为可能，即john。doe@nowhere.com致亲爱的约翰，在电子邮件头。你能帮帮我吗 inputReqM = ReqMail.Value `email addresses divided using ; inpu

旅程还在继续

在本集中，我想尝试制作一个脚本，负责生成电子邮件

现在我有一个输入框，它把所有的东西都放进去；将电子邮件地址分成一封电子邮件，但我希望每个地址都有一封电子邮件。我想把来自inputReqM的所有电子邮件放到数组中，然后一次读一行。第二件事-数组应该使更改用户名成为可能，即john。doe@nowhere.com致亲爱的约翰，在电子邮件头。你能帮帮我吗

inputReqM = ReqMail.Value `email addresses divided using ;
inputCC = CCmail.Value    
InputReqN = ReqName.Value `user's name (typed in manually)

dim objOutl, objMailItem
Set objOutl = CreateObject("Outlook.Application")
Set objMailItem = objOutl.CreateItem(olMailItem)

objMailItem.SentOnBehalfOfName = ""
objMailItem.Display
objMailItem.To = inputReqM
objMailItem.cc = inputCC
objMailItem.bcc = ""
objMailItem.Subject = inputTkt & ""
objMailItem.HTMLBody = "<body style="" font:11pt/14pt Calibri, Arial, serif"">" &     vbNewLine &_
"Dear " & inputReqN & ",<p>" & vbNewLine &_

Set objMailItem = nothing
Set objOutl = nothing

inputReqM=ReqMail.Value`使用；
inputCC=CCmail.Value
InputReqN=ReqName.Value`用户名（手动输入）
dim objOutl，objMailItem
Set objOutl=CreateObject（“Outlook.Application”）
设置objMailItem=objOutl.CreateItem（olMailItem）
objMailItem.SentonBehalfName=“”
objMailItem.Display
objMailItem.To=inputReqM
objMailItem.cc=inputCC
objMailItem.bcc=“”
objMailItem.Subject=inputkt&“
objMailItem.HTMLBody=”“&vbNewLine&_
“亲爱的”&inputReqN&“，”&vbNewLine&_
Set objMailItem=nothing
Set objOutl=无

我希望InputreqN也能从数组中获取。多谢各位

dim inputText
dim mainArray
dim objOutl
dim objMailItem

Set objOutl = CreateObject("Outlook.Application")
Set objMailItem = objOutl.CreateItem(olMailItem)

inputText = InputBox("put emails here separated with ;","","")
mainArray = split(LCase(inputText),";")

    for each x in mainArray
        objMailItem.Display
        objMailItem.To = x
        objMailItem.Subject = ""
        objMailItem.Body = ""
    next

现在，如果我要为每个删除

下的四个objMailItem
，并将它们替换为output=output&x&vbCRLF
并在next
下添加msgbox output，我会得到如下所列的所有条目：
mail@mail.com

mail@mail2.com

mail@mail3.com

等
希望这能帮助你理解。这就是我所有的。

谢谢。
我想出了：dim inputText dim mainArray dim objOutl Set objOutl=CreateObject（“Outlook.Application”）Set objmailitm=objOutl.CreateItem（olmailitm）inputText=InputBox（“将电子邮件放在这里，用“，”，”）分隔）mainArray=split（LCase（inputText），“；”）对于mainArray中的每个x，objMailItem.Display objMailItem.To x objMailItem.Subject=“”objMailItem.Body=“”下一步
，但我得到了objMailItem.To xOK的“对象不支持此方法”。似乎我丢失了“=”：）objMailItem.To=x
，但这并没有完全消除它。但我只收到一封电子邮件，其中最后一封电子邮件输入了inputbox。有什么想法吗？你能不能也在答案中写下你是如何分割数组和其他代码的，这是很难读懂放在注释框中的代码的