Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

6848 / 76733

←次へ　｜　前へ→


	【75481】VBAにてメール送信が、タスクスケジューラで動作しない。

yoshi

- 14/4/14(月) 12:07 -


	引用なし

	パスワード

VBAをかじったぐらいの者です。
Excel VBAにて下記を組んで、Auto_Openに記述して、自動メール送信をしています。
手動にて動作させる分には動作するのですが、タスクスケジューラにて動作させようとすると、動作しません。。

なにがいけないのか。。全然わからない状態です。。
すみませんが、ご教授をお願いいたします。

コード：

　　Dim Ap As Object
　　Dim M As Object
　　Dim strMOJI(2) As String
　　Dim Ldate As Date
　　　　　　
　　
　　Application.DisplayAlerts = False

　　ActiveWorkbook.UpdateLinks = xlUpdateLinksAlways
　　
　　
　　Ldate = Date - 1
　　
　　Worksheets("Report(Nr)").Select
　　Range("E2").Value = Ldate
　　
　　Range("A1:Y72").Select
　　Selection.CopyPicture Appearance:=xlScreen, Format:=xlBitmap

'ここまではメールに張り付けるデータを作成しており、動作するのを確認しております。

　　Set Ap = CreateObject("Outlook.Application")
　　Set M = Ap.CreateItem(0)
　　　　strMOJI(0) = "各位　お疲れ様です。　" & Range("E2").Value & " の状況を報告いたします。" & vbCrLf
　　　　strMOJI(1) = vbCrLf & " 以上です。" & vbCrLf
　　　　strMOJI(2) = strMOJI(0) & strMOJI(1)
　　　　strMOJI(2) = Replace(strMOJI(2), vbCrLf, "<br>")
　　　　M.BodyFormat = 3　　　　　　　　　　　 'リッチテキスト形式
　　　　M.HTMLBody = "" & strMOJI(2) & ""　　　　　　　 'メールの本文
　　　　M.To = Range("AB7").Value & ";" & Range("AC7").Value　'To アドレス
　　　　M.Cc = Range("AB8").Value & ";" & Range("AC8").Value　'Cc アドレス
　　　　M.Bcc = Range("AB9").Value & ";" & Range("AC9").Value　'Cc アドレス
　　　　M.Subject = Range("E2").Value & " 稼働報告"　 '件名
　　　　M.Display　'画面を表示

　　　　n = Len(strMOJI(0))
　　　　With Ap.ActiveInspector.WordEditor.Windows(1).Selection
　　　　　　 '貼り付け
　　　　　　.GoTo 3, 1, 2
　　　　　　.Paste
　　　　End With

　　　　M.Send

　　ActiveWorkbook.Save

　　Application.Quit
　　ThisWorkbook.Close False

0 hits

▼

【75481】VBAにてメール送信が、タスクスケジューラで動作しない。 yoshi 14/4/14(月) 12:07

≪