Outlook VBscript方法。发送停止脚本

我正在开发一个脚本，根据特定的输入发送电子邮件，我可以编写电子邮件，但不能使用

.send

方法发送

我收到以下错误：（请注意，该行与原始案例中使用的

.Send

匹配）

我已经使用

.SendKeys（^~）

方法成功发送了电子邮件，但我希望使用Outlook对象来发送电子邮件，而不是简单地发送快捷方式

这是我当前的代码：

' Declare all variables that will be used later on
    Dim outobj, mailobj, emailto, cc, subject, body, attachement
    Dim strFileText 
    Dim objFileToRead   
    Dim splitEmailto 

' Set the outlook application object
    Set outobj = CreateObject("Outlook.Application")  

' set the namespace
    Set myNamespace = outobj.GetNameSpace("MAPI")
    msgbox myNamespace.Folders(2)

' Set the mail item object
    Set mailobj = outobj.CreateItem(olMailItem) 

' Set a shell
    Set WshShell = WScript.CreateObject("WScript.shell")

' Get all the argument and assign
    emailto = "name@domain.eu"
    cc = "name@domain.eu"
    subject = "Simple Email"
    body = "Some Text"
    attachement = "C:\Users\name\Desktop\fileName.xls"

' Craft the email object
    With mailobj

        .Display

        ' assign the tos
        .To = cstr(emailto)

        ' add CCs
        .CC = cstr(cc)

        ' attach the relevant files
        If attachement <> "" Then
            If instr(attachement, ";") Then
                splitAtt = split(attachement, ";")
                For Each att In splitAtt 
                    If att <> "" Then
                        .Attachments.add cstr(att)
                    End If
                Next
            Else
                .Attachments.add cstr(attachement)
            End If
        End If

        If Subject <> "" Then
            .Subject = Subject ' sets the subject   
        End If

        If body <> "" Then
            .Body = body ' sets the body
        End If

        .Send

    End With

' Clear the memory
    Set outobj = Nothing
    Set mailobj = Nothing

' check for no more events in the sending event

' Report out & Quits
    WScript.StdOut.WriteLine("Email sent")
    WScript.Quit

”声明稍后将使用的所有变量
Dim outobj，mailobj，emailto，抄送，主题，正文，附件
变暗strFileText
Dim objFileToRead
暗分裂
'设置outlook应用程序对象
Set-outobj=CreateObject（“Outlook.Application”）
'设置名称空间
设置myNamespace=outobj.GetNameSpace（“MAPI”）
msgbox myNamespace.Folders（2）
'设置邮件项目对象
Set mailobj=outobj.CreateItem（olMailItem）
"装壳"
设置WshShell=WScript.CreateObject（“WScript.shell”）
'获取所有参数并分配
电子邮件收件人=”name@domain.eu"
cc=”name@domain.eu"
主题=“简单电子邮件”
body=“一些文本”
attachement=“C:\Users\name\Desktop\fileName.xls”
'创建电子邮件对象
与mailobj
.展示
'分配tos
.To=cstr（emailto）
“添加CCs
.CC=cstr（CC）
'附上相关文件
如果附件为“”，则
如果仪表（附件“；”），则
splitAtt=拆分（附件“；”）
对于splitAtt中的每个att
如果收件人是“”，则
.附件.添加cstr（附件）
如果结束
下一个
其他的
.附件.添加cstr（附件）
如果结束
如果结束
如果主题为“”，则
.Subject=Subject'设置主题
如果结束
如果主体是“”，那么
.Body=Body'设置主体
如果结束
.发送
以
“清除记忆
设置对象=无
设置mailobj=Nothing
'检查发送事件中是否没有其他事件
“报告并退出”
WScript.StdOut.WriteLine（“已发送电子邮件”）
WScript.Quit

---

我希望能够使用

.send

发送电子邮件。有什么想法吗？

错误是

E\u ABORT

。

---

为什么要显示消息并立即呼叫Send？您可以显示消息（显示，但不发送），也可以只发送消息并显示（发送，但不显示）。

错误为

E\u ABORT

。

---

为什么要显示消息并立即呼叫Send？您可以显示消息（显示，但不发送），也可以通过显示（发送，但不显示）将其发送出去。

此处的

.display

仅用于视觉测试目的。但是，即使我删除

.Display

并仅使用

.Send

它也不起作用，并且会发生相同的错误…显示的邮件是否与所有收件人和附件都正常？如果您单击“发送”，它会被发送吗？是的，如果我

，它也会被发送。SendKeys（^~”

可能是快速精确：我在一个Exchange帐户上（刚刚发现了这一点）。您的机器上有最新的AV应用程序吗？这里的

。显示

实际上只是为了进行视觉测试。但是，即使我删除

.Display

并仅使用

.Send

它也不起作用，并且会发生相同的错误…显示的邮件是否与所有收件人和附件都正常？如果单击“发送”，它会被发送吗？对所有人都是，如果我

，它也会被发送。SendKeys（“^~”

可能是quick precision:我在一个Exchange帐户上（刚刚发现这个），您的机器上有最新的AV应用程序吗？注意：我还通过命名空间添加了登录方法，以确保我已登录。没有更改任何内容…注意：我还通过名称空间添加了登录方法，以确保我已登录。什么都没变。。。