□ 戻る □一般操作のサロン □ 使用方法 □ 新着記事 □ 新規に質問する！ □ トピック一覧 □ 検索 □ 過去ログ
[ 最新記事及び返信フォームをトピックトップへ ]
| メール自動送信 | |
|---|---|
[195783] メール自動送信- ■親トピック/記事引用/メール受信=OFF■ □投稿者/ マタキタ -(2023/06/19(21:29)) □U R L/ 自動メールのマクロを下のように組みました。
しかし「.send」の部分で中断されます。
「.Display」に変更すれば自力で送信しなければなりませんが
なんとかメール作成まで進みます。
どのようにすれば自動で送信まで出来ますか
Dim ol As Object
On Error Resume Next
Set ol = GetObject(, "Outlook.Application")
On Error GoTo 0
If ol Is Nothing Then
Set ol = CreateObject("Outlook.Application")
End If
With ol.CreateItem(0)
.To = Range("C2").Value
.CC = Range("F2").Value
.Subject = Range("C3").Value
.send
.Body = Replace(Range("I2").Value, vbLf, vbCrLf) & .Body
End With
この記事にはVBAのコードが含まれています。 緑の太文字→注釈 茶色の太文字→条件分岐 赤の太文字→ループ 青の太文字→その他 | |
[195786] Re[1]: メール自動送信- ■記事引用/メール受信=OFF■ □投稿者/ ヘンリー -(2023/06/20(09:19)) □U R L/ >しかし「.send」の部分で中断されます。 中断されるだけですか？ コンピュータからの返答があるなら、 それを調べるか、掲載してください。 まぁ明らかにおかしい部分が別でありますが… | |
[195787] Re[2]: メール自動送信- ■記事引用/メール受信=OFF■ □投稿者/ 手順前後 -(2023/06/20(13:35)) □U R L/ 郵送してから手紙を封筒に入れているから。 | |
[195788] Re[3]: メール自動送信- ■記事引用/メール受信=OFF■ □投稿者/ マタキタ -(2023/06/20(18:51)) □U R L/ ありがとうございます 中断され .send の部分が黄色くなります。 .Display にすれば普通に完了します。 手順前後というのは.send を最後にということでしょうか 結果は同じで中断され黄色で表示します。 | |