webdevqa.jp.net

Sendメソッドが失敗したOutlookを使用したメールの送信

このコードを使用して、Excelから電子メールを送信します。

Sub Mail_workbook_Outlook_1()
'Working in Excel 2000-2013
'This example send the last saved version of the Activeworkbook
'For Tips see: http://www.rondebruin.nl/win/winmail/Outlook/tips.htm
    Dim OutApp As Object
    Dim OutMail As Object

    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)

    On Error Resume Next
    With OutMail
        .to = "[email protected]"
        .CC = ""
        .BCC = ""
        .Subject = "This is the Subject line"
        .Body = "Hi there"
        .Attachments.Add ActiveWorkbook.FullName
        'You can add other files also like this
        '.Attachments.Add ("C:\test.txt")
        .Send ' <--------------------------------This is causing troubble
    End With
    On Error GoTo 0

    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub

問題はそれです .Sendはオブジェクト(またはメソッド)として認識されません。

他のコマンドが機能しています(つまり、表示、保存)。

このエラーは、私の職場のセキュリティシステムが原因であると思います。 CDOを使用してみましたが、動作していません。

変化する .Sendから.Display そして、置きます SendKeys "^{ENTER}" の前に With OutMail行。

4
Tim Richards