0

これはメモ帳に保存したコードです。Excel.Applications を変更する必要がありますか?

Option Explicit

Dim xlApp
Dim xlBook

Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open("H:\shane.xlsm", 0, True)

xlApp.Run "Email"
xlBook.close
xlApp.Quit

Set xlBook = Nothing
Set xlApp = nothing

これは、メールを送信する必要があるコードです。テストすると、正常に動作し、メールが送信されます。

Option Explicit

Const strTo As String = "dvandervieren@enerplus.com"
Const strCC As String = ""  '<~~ change "def@abc.com" to "" if you do not want to CC
Const strBCC As String = "" '<~~ change "ghi@abc.com" to "" if you do not want to BCC

Sub Email()
Dim OutApp As Object, OutMail As Object
Dim strbody As String, strSubject As String

strSubject = "Hello World"
strbody = "This is the message for the body"

Set OutApp = CreateObject("Outlook.Application")

Set OutMail = OutApp.CreateItem(0)

On Error Resume Next
With OutMail
    .To = strTo
    .CC = strCC
    .BCC = strBCC
    .Subject = "This is the Subject line"
    .Body = strbody
    .Send
End With
On Error GoTo 0

Set OutMail = Nothing
Set OutApp = Nothing
End Sub
4

1 に答える 1

0

Excel ドキュメントを開きます。VB エディタを開きます。左側のウィンドウ ペインで Excel ドキュメントを見つけます。右クリックして [挿入] > [モジュール] を選択します。コードを新しく作成したモジュールに移動します。これで、メソッド名 Email だけを使用して呼び出すことができるはずです。既に Excel 内にいるため、Excel アプリケーションを decare する必要はありません。– ソーセリ

于 2015-03-06T02:04:29.713 に答える