By Rクロニン2020 14年2023月XNUMX日火曜日
投稿: Excel
返信 0
いいね 0
ビュー 2K
投票 0
私はVBAが初めてです。 セルKに「はい」が入ったときにメールを送信したいのですが・・・ここまで来ましたが、次のステップに苦労しています。

メールの本文は次のように読みたいと思います。

こんにちは、以下のプロジェクト提案の概要。

プロジェクト名: *セル A からの情報*
説明: *セル B*
解決策: *セル C*
利点: *セル D*
コスト: *セル F*
時間: セル *G*
リスク: セル *H*
顧客: セル I
ブランド: Cell J

敬具、

*セルL*


以下は、これまでに使用したコードです。


プライベートサブワークシート_Change(ByValターゲットを範囲として)
Target.Cells.Count> 1の場合、Subを終了します
If (Not Intersect(Target, Range("K:K")) Is Nothing) And (Target.Value = "Yes") Then
Mail_small_Text_Outlookを呼び出す
終了する場合
End Subの
サブMail_small_Text_Outlook()
オブジェクトとしての薄暗いxOutApp
xOutMailをオブジェクトとして薄暗くする
文字列としての薄暗いxMailBody
xOutApp = CreateObject( "Outlook.Application")を設定します
xOutMail = xOutApp.CreateItem(0)を設定します
xMailBody = "こんにちは"&vbNewLine&vbNewLine&_
「これは1行目です」&vbNewLine&_
「これは2行目です」
エラーで次の再開
xOutMailを使用
.To = "メールアドレス"
.CC = ""
.BCC = ""
.Subject = "セル値テストで送信"
.Body = xMailBody
.Display'または.Sendを使用します
最後に
エラー時GoTo0
xOutMail=Nothingを設定します
xOutApp=Nothingを設定します
End Subの

事前に、私を助けてくれる人に感謝します。
投稿全体を見る