□ 戻る □一般操作のサロン □ 使用方法 □ 新着記事 □ 新規に質問する！ □ トピック一覧 □ 検索 □ 過去ログ
[ 最新記事及び返信フォームをトピックトップへ ]
| メール作成 | |
|---|---|
[195767] メール作成- ■親トピック/記事引用/メール受信=OFF■ □投稿者/ 悩むセールスマン -(2023/06/11(08:36)) □U R L/ メールの作成マクロを以下のように書きました。
メールが起動していない場合はメッセージを表示するようにしましたがエラーになります。
・どう書き換えればいいのでしょうか。
・また起動していない場合は起動して作成する方法も教えていただければ幸いです。
Sub メール作成()
' Outlookのメールを作成する
Dim ol As Object
' 起動しているOutlookを取得する
Set ol = GetObject(, "Outlook.Application")
If ol Is Nothing Then
MsgBox "起動していません"
Exit Sub ' Outlookが起動していない場合、終了する
End If
' メールを作成する
With ol.CreateItem(0)
.To = Range("C4").Value ' 宛先
.Subject = Range("C7").Value ' 件名
.Display ' 表示
.Body = Replace(Range("C8").Value, vbLf, vbCrLf) & .Body ' 本文（署名を本文の下部に表示）
End With
End Sub
この記事にはVBAのコードが含まれています。 緑の太文字→注釈 茶色の太文字→条件分岐 赤の太文字→ループ 青の太文字→その他 | |
[195768] Re[1]: メール作成- ■記事引用/メール受信=OFF■ □投稿者/ 悩むセールスマン -(2023/06/11(18:42)) □U R L/ 追記 エラーはOutlookが起動していない時に処理が止まります。 起動時は正常にメールが作成されます。 よろしくお願いします | |
[195769] Re[2]: メール作成- ■記事引用/メール受信=OFF■ □投稿者/ MK -(2023/06/11(18:53)) □U R L/ createobjectsを使います ht tps://powervbadesktop.com/outlook3/ | |
[195770] Re[3]: メール作成- ■記事引用/メール受信=OFF■ □投稿者/ MK -(2023/06/11(18:56)) □U R L/ >createobjects ↓の間違いでした。 createobject | |
[195771] Re[4]: メール作成- ■記事引用/メール受信=OFF■ □投稿者/ 悩むセールスマン -(2023/06/11(19:43)) □U R L/ MK様ありがとうございます createobjectは新しいOutlookを開くと思います。 とりあえずメッセージを表示し2重開きをさせない方法を教えてください。 | |
[195772] Re[5]: メール作成- ■記事引用/メール受信=OFF■ □投稿者/ 半平太 -(2023/06/11(21:02)) □U R L/
| |
[195773] Re[6]: メール作成- ■  / 記事引用/メール受信=OFF■
□投稿者/ 悩むセールスマン -(2023/06/11(21:16)) □U R L/ 半平太さんありがとうございます お陰様で希望通りになりました。 | |