![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
いつもお世話になっております。
エクセルにて処理が終了した時点で、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も見ています
-
「環境が人を育てる」って本当?環境によって人格や生き方は本当に変わるのか
環境が人生に与える影響は実際どれほどのものなのか、専門家の田宮由美さんに伺った。
-
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
メッセージボックスを前面に表示させるには?
Visual Basic(VBA)
-
VBAにてメッセージボックスを最前面に表示させる
その他(プログラミング・Web制作)
-
-
4
VBAでブックを非表示で開いて処理して閉じる方法
Excel(エクセル)
-
5
VBAでエクセルシートを更新(リフレッシュ)する方法を教えて下さい。
Excel(エクセル)
-
6
AppActivateの使い方
PowerPoint(パワーポイント)
-
7
エクセルVBAのフォームを最前面にする方法を教えてください。
Visual Basic(VBA)
-
8
ExcelVBAでPDFを閉じるソース
その他(Microsoft Office)
-
9
Vba Userformを前面に出すについて
Access(アクセス)
-
10
メッセージボックスのOKボタンをVBAでクリックさせたい
Visual Basic(VBA)
-
11
メッセージボックスに表示する文字を大きくしたい
Excel(エクセル)
-
12
VBSで起動したアプリが前面表示しない
Visual Basic(VBA)
-
13
Application.ScreenUpdating = Falseが効きません
Visual Basic(VBA)
-
14
vbaから他のアプリを終了
Visual Basic(VBA)
-
15
エクセルVBAで、MsgBox やInputBox は、画面の中央以外に表示させたい。
Excel(エクセル)
-
16
バックグラウンドのプロセスのエクセルを閉じる方法
Visual Basic(VBA)
-
17
ユーザーフォームを表示中にシートの操作をさせるには
Excel(エクセル)
-
18
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
19
VBA: ブックをアクティベイトできない
Access(アクセス)
-
20
VBA シートをコピーする際に Copyメソッドは失敗しましたのエラーが出てしまいます
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
「FAX送信票」と「FAX送信表」...
-
免許証などの画像を、ネット上...
-
好きな人にLINEを送って、4時間...
-
送信済みのメールを利用して、...
-
thunderbird 送信画面が100%で...
-
フィードバック送信
-
表と票の違い
-
1通のメールが相手に大量に送信...
-
サンダーバードメール送信につ...
-
SMS で 20件ほどの 一斉送信...
-
Wordの差し込み印刷でメー...
-
フィードバック送信のボタンを...
-
Googleのフィールドバック送信...
-
指定のWORKBOOKを前面表示する...
-
LINEって送信前の誤字脱字がチ...
-
Simejiのアプリについて。 使っ...
-
パソコンの画像をアイフォンへ
-
送信箱が分からない(送信済み...
-
Excel VBA Outlook送信済メール...
-
Outlook 2010【送信先確認ボタ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
免許証などの画像を、ネット上...
-
好きな人にLINEを送って、4時間...
-
本日、メッセージを送信した覚...
-
「FAX送信票」と「FAX送信表」...
-
送信済みのメールを利用して、...
-
フィードバック送信のボタンを...
-
表と票の違い
-
指定のWORKBOOKを前面表示する...
-
1通のメールが相手に大量に送信...
-
thunderbird 送信画面が100%で...
-
Wordの差し込み印刷でメー...
-
一目惚れして声掛けた二個下の...
-
Gmailの配信未完了とはどういう...
-
フィードバック送信
-
Googleのフィールドバック送信...
-
よく、フィールドバックの送信...
-
Excel VBA Outlook送信済メール...
-
Outlook2003でAlt+Sで送信を無...
-
Access VBAでメール自動送信
-
Gmailで添付ファイルを送りたい...
おすすめ情報