いつもお世話になっております。
エクセルにて処理が終了した時点で、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も見ています
-
新NISA制度は今までと何が変わる?非課税枠の拡大や投資対象の変更などを解説!
少額から投資を行う人のための非課税制度であるNISAが、2024年に改正される。おすすめの銘柄や投資額の目安について教えてもらった。
-
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
メッセージボックスを前面に表示させるには?
Visual Basic(VBA)
-
AppActivateの使い方
PowerPoint(パワーポイント)
-
-
4
Vba Userformを前面に出すについて
Access(アクセス)
-
5
エクセルVBAのフォームを最前面にする方法を教えてください。
Visual Basic(VBA)
-
6
VBAでブックを非表示で開いて処理して閉じる方法
Excel(エクセル)
-
7
Application.ScreenUpdating = Falseが効きません
Visual Basic(VBA)
-
8
vbaから他のアプリを終了
Visual Basic(VBA)
-
9
VBSで起動したアプリが前面表示しない
Visual Basic(VBA)
-
10
エクセルで別ブックをバックグラウンドでオープンする方法
Excel(エクセル)
-
11
VBA シートのボタン名を変更したい
Visual Basic(VBA)
-
12
VBAでエクセルシートを更新(リフレッシュ)する方法を教えて下さい。
Excel(エクセル)
-
13
VBAにてメッセージボックスを最前面に表示させる
その他(プログラミング・Web制作)
-
14
VBA: ブックをアクティベイトできない
Access(アクセス)
-
15
ExcelVBAでPDFを閉じるソース
その他(Microsoft Office)
-
16
エクセルVBAのIf,Then 構文でOr条件とAnd条件の結合方法?
Excel(エクセル)
-
17
Excel マクロ VBA プロシージャが大きすぎます のエラー対処方法
Visual Basic(VBA)
-
18
メッセージボックスに表示する文字を大きくしたい
Excel(エクセル)
-
19
ユーザーフォームを表示中にシートの操作をさせるには
Excel(エクセル)
-
20
他のアプリケーションの終了処理
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
送信済みのメールを利用して、...
-
免許証などの画像を、ネット上...
-
好きな人にLINEを送って、4時間...
-
「FAX送信票」と「FAX送信表」...
-
本日、メッセージを送信した覚...
-
ソフトバンクからワイモバイル...
-
Excel VBA Outlook送信済メール...
-
指定のWORKBOOKを前面表示する...
-
フィードバック送信のボタンを...
-
1通のメールが相手に大量に送信...
-
Access VBAでメール自動送信
-
表と票の違い
-
サンダーバード(メーラー)に...
-
Outlookでの時間指定送信機能に...
-
この女性の心理を教えて下さい...
-
フィードバック送信
-
ヤフーメールの送信済みメール...
-
Outlook2003でAlt+Sで送信を無...
-
SMS で 20件ほどの 一斉送信...
-
LINEで連続で送信取り消しする...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
免許証などの画像を、ネット上...
-
好きな人にLINEを送って、4時間...
-
「FAX送信票」と「FAX送信表」...
-
送信済みのメールを利用して、...
-
フィードバック送信のボタンを...
-
本日、メッセージを送信した覚...
-
指定のWORKBOOKを前面表示する...
-
ソフトバンクからワイモバイル...
-
1通のメールが相手に大量に送信...
-
thunderbird 送信画面が100%で...
-
フィードバック送信
-
表と票の違い
-
よく、フィールドバックの送信...
-
Gmailで添付ファイルを送りたい...
-
SMSで空メールを送ることってで...
-
Excel VBA Outlook送信済メール...
-
グーグルフォームについて
-
VBA メール送信済で実行される...
-
Googleのフィールドバック送信...
-
Wordの差し込み印刷でメー...
おすすめ情報