□ 戻る　 □一般操作のサロン　 □ 使用方法　 □ 新着記事 　□ 新規に質問する！　 □ トピック一覧　 □ 検索 　□ 過去ログ
[ 親トピックをトピックトップへ ]
このトピックに書きこむ
Name/
E-Mail/

└>このツリーのレス記事をメールで受信しますか? YES/ NO/
Title/
URL/
Comment/ 通常モード->　 図表モード-> (←の場合適当に改行を入れて下さい)
タグが使用できます。例 ⇒ <font color="blue">文字</font>
解決！！ありがとうございました！ 解決       保留中です・・・ 保留        迷宮入りorほかあたって見ます・・ 迷宮入       すいませ〜ん。誰か〜！ Help! ←※回答者専用
解決したらチェック       保留(コードテスト中など・・)         解決不可orレスが全く付かなくてほかのサイトに行くときなど・・
削除キー/
(半角8文字以内)　

このトピック参照回数 :
Re[6]: メール作成

    [195773] Re[6]: メール作成-

    ■解決！！ありがとうございました！ / 記事引用/メール受信=OFF■

    □投稿者/ 悩むセールスマン -(2023/06/11(21:16))
    □U R L/

      半平太さんありがとうございます
      お陰様で希望通りになりました。



    [195772] Re[5]: メール作成-

    ■記事引用/メール受信=OFF■

    □投稿者/ 半平太 -(2023/06/11(21:02))
    □U R L/ 
      こう言う事かな？

 ＞  Set ol = GetObject(, "Outlook.Application")
     ↓
     On Error Resume Next
       Set ol = GetObject(, "Outlook.Application")
     On Error GoTo 0
 


      この記事にはVBAのコードが含まれています。

      緑の太文字→注釈
      茶色の太文字→条件分岐
      赤の太文字→ループ
      青の太文字→その他



    [195771] Re[4]: メール作成-

    ■記事引用/メール受信=OFF■

    □投稿者/ 悩むセールスマン -(2023/06/11(19:43))
    □U R L/

      MK様ありがとうございます
      createobjectは新しいOutlookを開くと思います。
      とりあえずメッセージを表示し2重開きをさせない方法を教えてください。




    [195770] Re[3]: メール作成-

    ■記事引用/メール受信=OFF■

    □投稿者/ MK -(2023/06/11(18:56))
    □U R L/

      >createobjects

      ↓の間違いでした。

      createobject



    [195769] Re[2]: メール作成-

    ■記事引用/メール受信=OFF■

    □投稿者/ MK -(2023/06/11(18:53))
    □U R L/

      createobjectsを使います

      ht tps://powervbadesktop.com/outlook3/



    [195768] Re[1]: メール作成-

    ■記事引用/メール受信=OFF■

    □投稿者/ 悩むセールスマン -(2023/06/11(18:42))
    □U R L/

      追記
      エラーはOutlookが起動していない時に処理が止まります。
      起動時は正常にメールが作成されます。

      よろしくお願いします




    [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のコードが含まれています。

      緑の太文字→注釈
      茶色の太文字→条件分岐
      赤の太文字→ループ
      青の太文字→その他



このトピック内容の全ページ数 / [0]
- Child Forum -
Edit:ゆう-Ｇ