疑問・質問・マクロの要望

このブログでは Outlook に関する質問や疑問、マクロの要望などを募集しています。
この記事のコメントに入力してご質問等をお寄せください。(コメントに入力される際には、他の質問と区別できるよう、できる限り名前の欄にハンドル名などを入れてくださると助かります。)
また、ご質問に Outlook のバージョンや使用環境の詳細を記載していただくと、より的確な回答が可能になると思いますので、ご協力をお願いします。

なお、可能な限りお答えしたいと思いますが、すべてのコメントやメッセージにお答えできるとは限りません。特に、ログやデータの解析が必要なトラブルに対するご質問や、複雑なマクロのご要望などにはお答えできない場合があります。
確実に回答が必要な場合や、差し迫ったトラブルへの対応、製品の恒久的な対応やマイクロソフト社の正式見解が必要な場合は、マイクロソフトのサポート窓口にお問い合わせください。

アーカイブ リンク
2019年
2018年
2017年
2016年以前

疑問・質問・マクロの要望」への18件のフィードバック

  1. 予定表で、
    定例会議をほかユーザーと共有しているのですが、
    ある個別の会議を このアイテムのみ開く で調整した際、

    ほかユーザーの予定は変わりますが、
    私の予定のみ一瞬変わるのですが、
    すぐに私の予定だけ変更前に戻ってしまいます
    おかしな設定を下覚えはないのですが、
    何か設定を変えることで処置できるならすぐに対応したいです

    • 以下のレジストリを設定して回避するか試してみてください。

      キー: HKEY_CURRENT_USER\Software\Microsoft\Office\16.0\Outlook\Cached Mode
      名前: Upload
      種類: REG_DWORD
      値: 1

  2. つい先日よりOutlookを使用し始めて、こちらにお邪魔して勉強させて頂いております。
    (環境:WIN10, Office365)
    さて、「名前が適切ではありません」のコンパイルエラーで困っております。
    マクロは例の「豆腐メール」受信後の削除、及びメール受信後の添付エクセルファイルを
    デスクトップへ保存する の2種類のマクロを上下並べて記述させましたところ、
    上述のエラーが出ております。
    具体的には、Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)
    のところが、2種類のマクロ故に2重になっていることでのエラーだと思いますが、その回避方法を
    ご教示お願いしたいと存じます。いろいろ試しましたが、初心者故に対応が不明です。
    (豆腐メール用マクロは、サブ プロシージャがなく、もう一方はそれがあることで、混乱しているのかも知れません) どうぞよろしくお願い致します。

  3. いつも参考にさせていただいております。

    現在outlook2010を使用しております。

    特定の文字列から始まる件名のタスクを
    実施済みにした際に
    エクセルシートに①件名②タスク所有者の氏名
    が転記されたいと考えております。

    よろしくお願いいたします。

  4. 初めてOutlookVBAに挑戦しており、とても参考にさせて頂いております。
    どうしても実現したいものがあり、お力添えいただけないでしょうか。

    本文にHTMLの表のあるメールが毎日数件届きます。
    1時間ごとにマクロを実行し、表内の項目を既存のエクセルの最下行に追記していくようにしたいです。

    HTML表は列数は2で固定、行数が変動します。

    「HTML 形式のメールの本文中に含まれる表を Excel にコピーするマクロ」を加工して作っているのですが、
    オブジェクトに関するエラーが出てしまい打破できません。
    何卒宜しくお願いします。

    • どのようなマクロのどのようなコードでエラーになっているかがわからないのですが、具体的なマクロやエラーの内容などを教えていただくことは可能でしょうか?

      • ご返信ありがとうございます。
        参考にしているのは、https://outlooklab.wordpress.com/2015/06/06/html-%e5%bd%a2%e5%bc%8f%e3%81%ae%e3%83%a1%e3%83%bc%e3%83%ab%e3%81%ae%e6%9c%ac%e6%96%87%e4%b8%ad%e3%81%ab%e5%90%ab%e3%81%be%e3%82%8c%e3%82%8b%e8%a1%a8%e3%82%92-excel-%e3%81%ab%e3%82%b3%e3%83%94/ そのままです。
        オブジェクトに関するエラーは乗り越えられました。お騒がせしました。
        Excelにペーストする際にテキストのみにしたいのですが、貼付け後にExcel側で書式を変更するしか無いでしょうか。

  5. OutlookVBA初心者です。

    お力添えを頂きたく初投稿させて頂きます。

    予定表に関して以下イベントのハンドラを実装したいのですが、
    どのようにしてイベントを検知すればよいかわかりません。

    ・予定表に新たにスケジュール登録された場合
    ・予定表に存在するスケジュールの件名や時間等のプロパティが変更された場合

    上記タイミングを検知し、外部システムへ通知を送りたいと思っております。

    コメント等頂けますと幸いです。

    よろしくお願い致します。

  6. OutlookVBA初心者です。
    1クリックで以下の作業を行いたいと考えております。
    (環境:Win10/Outlook2013)

    ・本文の一部だけを抜粋してヘッダーまたはフッターに表示
     もしくは件名の後ろから7文字
    ・抜粋した文字列をバーコード表示(バーコードフォントは入っております)
    ・クイック印刷

    抜粋する条件は指定文字列の後ろの7文字です。
    (バーコードフォントはBC39のため前後に*を結合する必要があります)

    また、実現出来たら他の(遠隔地の営業所)PCにも同様の設定を行いたいのですが、
    直接使用しているPCにコードをコピペする以外に方法はありませんでしょうか?

    お力添えいただけますと幸いです。
    何卒宜しくお願い致します。

  7. Outlook VBA 初心者です。
    Outlook 2016を使用しています。

    Msg BoxとInput Boxの併用について。
    まずMsg Boxで、YES/NOの質問。Noの場合はそのまま送信。
    YESをクリックした場合で、Input Boxを表示させ、任意の文字を入力させる。
    入力させた文字は、メール本文の文末に『Checked (任意の文字)』と追記したい場合のコードをご教示いただきたく。
    メッセージボックスからインプットボックスまでのつなぎ方がいまいちわかりません。
    お力添えいただきますと、幸いです。
    宜しくお願いいたします。

  8. アウトルックメールから送れないメールアドレスにメールを送るには、どうしたらいいですか?

    例→ メールアドレスの@の直前にピリオド(.)がある。

    よろしくお願いします。

  9. Outlookマクロについて質問です。
    メール本文から特定文字以降を抽出したいです。
    Outlook2016です。

    ★条件
    ・新規メールを受信後、件名に”パスワード”とあったら実行

    ★やりたいこと
    ・下記を指定Excel(C:\test\PW.xlsx)に書き出し
    ・件名をA2以降に書き出し(空白行の最終行)
    ・本文内の【パスワード】後に改行してあるパスワードをA3以降に書き出し(空白行の最終行)

    ★例
    ******* このようなメールを受信 *******
    〈件名〉
    パスワード送信
    〈メール本文〉
    お疲れ様です。

    【パスワード】
    ABC123

    ******* 指定Excel *******
    (A2)       (A3)
    パスワード送信  ABC123

    以上、お力を貸していただきたいです。
    少し急ぎ目だと助かります。
    よろしくお願いいたします(@_@)

  10. はじめまして。
    こちらのサイトをいつも参考にさせていただいております。
    投稿されていた添付ファイルを保存するマクロを実行しているのですが、
    会議通知が来るたびにエラーが起こり、デバックが必要となります。
    ○エラー箇所
    > Set mail = Application.Session.GetItemFromID(strEntryID)
    会議通知をよけるにはどうすればよいでしょうか。

    ○実行マクロ
    Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)
    Dim i As Integer
    Dim id As Variant

    If InStr(EntryIDCollection, “,”) = 0 Then
    SaveAttachments EntryIDCollection
    Else
    id = Split(EntryIDCollection, “,”)
    For i = LBound(id) To UBound(id)
    SaveAttachments id(i)
    Next
    End If

    End Sub

    Private Sub SaveAttachments(ByVal strEntryID As String)
    Dim attach As Attachment
    Dim file As String
    Dim bat As Object
    Dim mail As Object

    Set bat = CreateObject(“WScript.Shell”)
    Set mail = Application.Session.GetItemFromID(strEntryID)

    For Each attach In mail.Attachments
    With attach

    ‘保存する添付ファイルをファイル名で指定
    If Not .FileName Like “ファイル名” Then
    GoTo L1
    End If

    ‘保存先のフォルダを指定
    file = “フォルダ” & attach.FileName
    .SaveAsFile file

    ‘実行するbatファイルを指定
    bat.Run “batファイル”, 1, True

    L1:
    End With
    Next

    Set bat = Nothing
    Set mail = Nothing
    End Sub

  11. 始めまして。こちらのサイトで勉強させていただいております。
    VBA初心者で浅学で誠に申し訳ございませんが、お力添え頂けないでしょうか。
    (環境:Win10/Outlook2013)

    <実現したいこと>
    ・特定サブフォルダに見積メールが新規格納されたら、管理簿登録するExcelマクロを実行する。
    ・管理簿登録時の引数は、メール本文に記載の案件名とする。

    <エラー箇所>
    ・Outlookマクロ→Excelマクロの呼び出し方法が分かりません。
    ※「特定サブフォルダに見積メールが新規格納されたら」の部分は過去質問を基に作成予定です。

    ===エラーになったマクロ===
    Sub 呼び出し()
    Dim BookName As String
    BookName = “C:\test.xlsm”
    Application.Run “‘” & BookName & “‘” & “!見積マクロ”
    End Sub
    ================

  12. 貴Windows 転送ツールで転送後に Outlook で連絡先がアドレス帳に表示されない現象について
    の表記で紹介されたvbsをoutlook2019で実行したところ
    行25 文字1 エラー 型が一致しません UBound コード800A000D 実行エラーが出ました。
    お忙しいところ恐縮ですがご教授いただけると幸甚です。
    よろしくお願いいたします。

  13. いつも参考にさせてもらっています。
    Outlook365(2016?)で、受信メールの表示画面のフォントをすることはできない
    でしょうか?
    テキスト形式でひな型のフォントを固定長フォント(MS ゴシック)に変更して
    いますが、受信したメールは罫線などの記号が適用されていないため、罫線で
    作成された表がとても見辛いのです。

    ちなみに、メール本文をテキストエディタにコピー&ペーストすると、きちんと
    表が表示されます。
    また、メール作成時も問題なく表として表示されているのですが、自分宛に
    送信してみると、やはり、表が崩れて表示されます。
    もしかすると、文字コードの問題なのかもしれませんが、まずは、受信した
    メールのフォントを変更する方法があれば、ご教示ください。

    以上です。

コメントを残す

以下に詳細を記入するか、アイコンをクリックしてログインしてください。

WordPress.com ロゴ

WordPress.com アカウントを使ってコメントしています。 ログアウト /  変更 )

Google フォト

Google アカウントを使ってコメントしています。 ログアウト /  変更 )

Twitter 画像

Twitter アカウントを使ってコメントしています。 ログアウト /  変更 )

Facebook の写真

Facebook アカウントを使ってコメントしています。 ログアウト /  変更 )

%s と連携中