0
アンドゥ
投票
こんにちは、
間接的なセル値の変更（例：> 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 = ""
.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 = ""
.CC = ""
.BCC = ""
.Subject="鉛摂取からの日数"
.Body = xMailBody
.Attachments.Add（ThisWorkbook.FullName）
.Display'または.Send
最後に
エラー時GoTo0
xOutMail=Nothingを設定します
xOutApp=Nothingを設定します
End Subの
ありがとうございます！
ありがとう、アマンダ！ ただし、まだエラーが発生し、プロンプトに「デバッグ」オプションが表示されません。 私はVBAにかなり慣れていませんが、それは私のインデントでしょうか？ それがあなたの側で機能するのを見てください。 スクリーンショットをアップロードしようとしましたが、返信メッセージを送信するのに苦労しました（長時間ロードされています。ヘッドサップだけです）。
今すぐ添付ファイルを付けて投稿してみてください。
こんにちは、アマンダさん、遅れてすみません。End if を Exit Sub に変更しました。 しかし、何らかの理由で Excel ファイルまたはスクリーンショットを追加できません。添付ファイルで返信できません。 とにかく、Excel ファイルは xlsm ファイルであり、ファイルのアップロードがサポートされていないため、追加できませんでした。 メールでチャットできますか？
こんにちは、
zipまたはrarとして保存してみませんか？
こんにちはアマンダ！
これはRyan4です ExtendOffice。 私の問題を解決するためにあなたのメールアドレスを送ってくれてありがとう、私はあなたの素晴らしいコミュニティを発見してから積極的なメンバーになるつもりです、それで私のファイルアップロードの問題が最終的に解決されることを願っています！
とりあえず、こちらの添付ファイルをご覧ください。 「Endif」ではなく「ExitSub」を読み取るようにコードを更新しましたが、デバッグオプションがない場合でもエラーが発生します。 アドバイスできますか？ おそらくそれは私の構造またはインデントです。
よろしくお願いします！
Ryan Tan
こんにちはライアン、
メールメッセージを受信しました。 同じ問題を抱えている他のユーザーもいる可能性があるので、ここで返信します。
以下の方法を試してください。
1。 オープン 参照.
2。 チェック Microsoft Outlook16.0オブジェクトライブラリ. 注：16.0の代わりに、15.0、14.0などがある場合があります。
3.以下のコードを置き換えます
Dim xOutApp As Object
Dim xOutMail As Object〜へ
Dim xOutApp As Outlook.Application
Dim xOutMail As Outlook.MailItem上記の3つの手順を試してください。 あなたのvbaは私たちのコンピュータでうまく動作するので、私たちが問題を再現するのは難しいです。 うまくいけば、この方法があなたを助けるでしょう！
アマンダ
- ページ：
- 1
この投稿に対する返信はまだありません。