Outlook VBscript метод. Отправка останавливает сценарии

Question

Я разрабатываю сценарий для отправки электронного письма в соответствии с определенными данными, я могу обработать письмо, но не могу отправить его, используя метод .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

Я хотел бы иметь возможность отправлять электронную почту с.Send.есть идеи?

Answer 1

Ошибка E_ABORT.Почему вы отображаете сообщения и , которые сразу же вызывают «Отправить»?Вы либо отображаете сообщение (Показать, но не отправлять), либо просто отправляете его без отображения (Отправить, но не отображаете).