いつもお世話になっております。
エクセルにて処理が終了した時点で、VBAを使い自動的にメールを送るマクロを組みました。しかし、ユーザーからのリクエストにより、自動送信する前にメール内容を確認したいとのことで、一度このメール内容でOKかどうか聞いてから、送信するように書き換えました。そのMsgBoxは当然エクセル上に現れるのですが、特にシングルディスプレイユーザーの場合、送信用のメールが前面に出てしまい、エクセル上に表示されたMsgBoxに気が付かない人もいますので、送信用メールが作成されたら、エクセルを前面に出してMsgBoxの指示に従わせたいのですが、どう書けばいいのか分かりません。とりあえず、私がトライしてみた文字ールは下記のとおりですが、エクセルは前面には出ません(ただし、エクセルプログラム全体が点滅?しますが)。
~前略~
With myMail
.To = "abc@xxxxx.com"
.Cc = "123@xxxxx.com"
.Subject = Filename '指定済みです
.Body = strBody '指定済みです
.display '.sendの代わりにいったんここで表示させました
End With
Windows("XYZ.xls").Activate 'このワークブックで作業をしてます。全面にはでてきません。
mymsg = MsgBox("このメール内容で送信してもよろしいですか?"~中略~,vbYesNo + vbQuestion, "送信確認")
If mymsg = 6 Then
myMail.send
~後略~
No.3
- 回答日時:
こんにちは
>Windows("XYZ.xls").Activate 'このワークブックで作業をしてます。全面にはでてきません。
↓
通常は、AppActivate("Microsoft Excel") の引数は、Application.Caption を使います。
しかし、うまくいかないこともありますので、その場合は、このようにします。
'-----------------------------------
Private Declare Function SetForegroundWindow Lib "user32.dll" (ByVal hwnd As Long) As Long
Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Sub Test()
Dim hwnd As Long
Const FCLASSNAME As String = "XLMAIN"
hwnd = FindWindow(FCLASSNAME, vbNullString)
If hwnd > 0 Then
SetForegroundWindow hwnd
End If
End Sub
なお、"XLMAIN" は、Excelのクラス名
Outlook は、"rctrl_renwnd32" です。
Wendy02さん、
本当にいつもありがとうございます。
私にはとても思いつかない、モジュールです。。。
おっしゃる通り、Application.Captionでうまくいきました。
これでうまくいかなかったときには、上記を使わせていただきます。
システム上残念ながら、お二人に20Pを差し上げることができません。
今回は、ご回答順でPを付することにいたしますことを、ご了承ください。
ありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) VBAでoutlook365が起動しません。 4 2022/08/25 13:31
- Visual Basic(VBA) VBAにてメール作成した際、一部指定箇所のみ赤文字にしたいです。 下記の内容ですと作成されたメール本 1 2022/04/27 13:31
- Visual Basic(VBA) 【追加】ファイルを閉じてダイアログで保存した時だけ処理の実行をする 3 2022/03/23 15:43
- Visual Basic(VBA) VBA初心者です。 2 2022/10/10 11:52
- Visual Basic(VBA) エクセルのマクロを使ってメールを送る方法について教えてください 2 2022/03/29 01:36
- その他(Microsoft Office) outlookで宛先が異なるメールを一括送信する方法 outlookで200人それぞれをtoに指定し 2 2023/08/03 21:24
- Visual Basic(VBA) ファイル全てを .xlsm に変更したところ、プログラムが途中で落ちてしまっています 17 2022/12/07 12:03
- Visual Basic(VBA) 【Excel VBA】自動メール送信の機能追加 5 2022/09/29 12:53
- Visual Basic(VBA) モードレスでユーザーフォームが開け(表示)ません。 4 2022/09/09 11:05
- Visual Basic(VBA) VBAが止まります。 3 2022/08/31 14:09
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
メッセージボックスを前面に表示させるには?
Visual Basic(VBA)
-
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
AppActivateの使い方
PowerPoint(パワーポイント)
-
-
4
Vba Userformを前面に出すについて
Access(アクセス)
-
5
Application.ScreenUpdating = Falseが効きません
Visual Basic(VBA)
-
6
VBAでブックを非表示で開いて処理して閉じる方法
Excel(エクセル)
-
7
エクセルで別ブックをバックグラウンドでオープンする方法
Excel(エクセル)
-
8
エクセルVBAのフォームを最前面にする方法を教えてください。
Visual Basic(VBA)
-
9
VBSで起動したアプリが前面表示しない
Visual Basic(VBA)
-
10
vbaから他のアプリを終了
Visual Basic(VBA)
-
11
VBA: ブックをアクティベイトできない
Access(アクセス)
-
12
VBA シートのボタン名を変更したい
Visual Basic(VBA)
-
13
VBAにてメッセージボックスを最前面に表示させる
その他(プログラミング・Web制作)
-
14
メッセージボックスに表示する文字を大きくしたい
Excel(エクセル)
-
15
ユーザーフォームを表示中にシートの操作をさせるには
Excel(エクセル)
-
16
エクセルVBAのIf,Then 構文でOr条件とAnd条件の結合方法?
Excel(エクセル)
-
17
VBAでエクセルシートを更新(リフレッシュ)する方法を教えて下さい。
Excel(エクセル)
-
18
Excel マクロ VBA プロシージャが大きすぎます のエラー対処方法
Visual Basic(VBA)
-
19
[VBA] UserForm を Excel の Window の前面に表示させない方法
その他(プログラミング・Web制作)
-
20
指定したフォルダーを最前面表示にする方法
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
免許証などの画像を、ネット上...
-
好きな人にLINEを送って、4時間...
-
「FAX送信票」と「FAX送信表」...
-
指定のWORKBOOKを前面表示する...
-
送信済みのメールを利用して、...
-
Microsoft formsについての質問...
-
本日、メッセージを送信した覚...
-
フィードバック送信のボタンを...
-
ソフトバンクからワイモバイル...
-
表と票の違い
-
Outlookのメール送信を取り消す...
-
1通のメールが相手に大量に送信...
-
Outlook2003でAlt+Sで送信を無...
-
Gmailで添付ファイルを送りたい...
-
VBA メール送信済で実行される...
-
Access VBAでメール自動送信
-
SMSで空メールを送ることってで...
-
このメールは自動送信メールで...
-
Googleのフィールドバック送信...
-
hotmailでの予約送信の仕方を教...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
免許証などの画像を、ネット上...
-
好きな人にLINEを送って、4時間...
-
送信済みのメールを利用して、...
-
「FAX送信票」と「FAX送信表」...
-
フィードバック送信のボタンを...
-
指定のWORKBOOKを前面表示する...
-
ソフトバンクからワイモバイル...
-
よく、フィールドバックの送信...
-
thunderbird 送信画面が100%で...
-
フィードバック送信
-
本日、メッセージを送信した覚...
-
ネットがつながっていないMacの...
-
Gmailで添付ファイルを送りたい...
-
Wordの差し込み印刷でメー...
-
表と票の違い
-
1通のメールが相手に大量に送信...
-
TikTokって危ないってよく言わ...
-
Googleのフィールドバック送信...
-
SMSで空メールを送ることってで...
-
Outlookでの時間指定送信機能に...
おすすめ情報