こんにちは、
間接的なセル値の変更(例:> 7)に基づいて、メールの添付ファイルと、送信メール本文の変更されたセルへの特定のセル参照を使用して、メールを送信しようとしています。 基準に基づいて、間接的なセル値を変更しました。 ただし、セルアドレスを電子メールに呼び出すように変数を設定しようとすると、424エラーが発生します。 手伝ってもらえますか? 身近に感じます。
範囲としての薄暗いxRg
範囲としての薄暗いxRgSel
'範囲とターゲットを設定する
プライベートサブワークシート_Change(ByValターゲットを範囲として)
範囲としての薄暗いxRgPre
エラーで次の再開
Target.Cells.Count> 1の場合、Subを終了します
xRg = Range( "Q2:Q43")を設定します
xRgPre=xRg.Precedentsを設定します
xRgSel = Intersect(Target、xRg)を設定します
ActiveWorkbook.Save
xRg.Value>7の場合
Mail_small_Text_Outlookを呼び出す
ElseIf(Not xRgPre Is Nothing)And(Intersect(Target、xRgPre).Address = Target.Adress)Then
終了する場合
終了する場合
End Subの
サブMail_small_Text_Outlook()
オブジェクトとしての薄暗いxOutApp
xOutMailをオブジェクトとして薄暗くする
文字列としての薄暗いxMailBody
xOutApp = CreateObject( "Outlook.Application")を設定します
xOutMail = xOutApp.CreateItem(0)を設定します
xMailBody = "こんにちは、セル"&xRgSel.Address(False、False)&_
"ワークシート内'"&Me.Name&"'は摂取から3日後"&vbNewLine&vbNewLine&_
"レビューしてリードに連絡してください"&vbNewLine&_
"ありがとうございました"
エラーで次の再開
xOutMailを使用
.To = "rdavis@bridge.partners"
.CC = ""
.BCC = ""
.Subject="鉛摂取からの日数"
.Body = xMailBody
.Attachments.Add(ThisWorkbook.FullName)
.Display'または.Send
最後に
エラー時GoTo0
xOutMail=Nothingを設定します
xOutApp=Nothingを設定します
End Subの
ありがとうございます!
間接的なセル値の変更(例:> 7)に基づいて、メールの添付ファイルと、送信メール本文の変更されたセルへの特定のセル参照を使用して、メールを送信しようとしています。 基準に基づいて、間接的なセル値を変更しました。 ただし、セルアドレスを電子メールに呼び出すように変数を設定しようとすると、424エラーが発生します。 手伝ってもらえますか? 身近に感じます。
範囲としての薄暗いxRg
範囲としての薄暗いxRgSel
'範囲とターゲットを設定する
プライベートサブワークシート_Change(ByValターゲットを範囲として)
範囲としての薄暗いxRgPre
エラーで次の再開
Target.Cells.Count> 1の場合、Subを終了します
xRg = Range( "Q2:Q43")を設定します
xRgPre=xRg.Precedentsを設定します
xRgSel = Intersect(Target、xRg)を設定します
ActiveWorkbook.Save
xRg.Value>7の場合
Mail_small_Text_Outlookを呼び出す
ElseIf(Not xRgPre Is Nothing)And(Intersect(Target、xRgPre).Address = Target.Adress)Then
終了する場合
終了する場合
End Subの
サブMail_small_Text_Outlook()
オブジェクトとしての薄暗いxOutApp
xOutMailをオブジェクトとして薄暗くする
文字列としての薄暗いxMailBody
xOutApp = CreateObject( "Outlook.Application")を設定します
xOutMail = xOutApp.CreateItem(0)を設定します
xMailBody = "こんにちは、セル"&xRgSel.Address(False、False)&_
"ワークシート内'"&Me.Name&"'は摂取から3日後"&vbNewLine&vbNewLine&_
"レビューしてリードに連絡してください"&vbNewLine&_
"ありがとうございました"
エラーで次の再開
xOutMailを使用
.To = "rdavis@bridge.partners"
.CC = ""
.BCC = ""
.Subject="鉛摂取からの日数"
.Body = xMailBody
.Attachments.Add(ThisWorkbook.FullName)
.Display'または.Send
最後に
エラー時GoTo0
xOutMail=Nothingを設定します
xOutApp=Nothingを設定します
End Subの
ありがとうございます!