私は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の
事前に、私を助けてくれる人に感謝します。