outlook-vba

    1

    1答えて

    受信メールの本文から単語を抽出する必要があります。 サイトを参照した後でRegexを使用しましたが、結果が得られていないし、エラーが発生していません。 例:サンプルテキスト 大文字の後に最初の単語のみを入力します。 Description\s*:+\s*(\w+) そして、それは、その後0+空白、1+ :シンボル、再び0以上の空白、その後、Descriptionにマッチします:それは、より良い

    0

    1答えて

    メールのPDF版を作成するスクリプトを作成しました。このバージョンでは、メールに添付ファイルがないことを確認しています(添付ファイル付きのバージョンはまったく同じように動作します)。それは65っぽいメールに到達するまで、スムーズかつ問題なく実行され、それがこのエラーで停止: Run-Time error '-2147467259 (80004005)' 任意のアイデアは、なぜこれが起こってかもしれ

    -1

    1答えて

    現在、私はOutlookから受信した各メールの件名を処理しようとしています。すべての件名はF列に記載されています。電子メールの件名をすべて表示したい(重複は削除され、それぞれの会話には1行しか保存されません - REまたはFWのメールは削除されていますこれらの)。新しいワークシートには、受信トレイのすべての件名が含まれます(重複が削除された直後に1回だけ取り込まれます)。 コード: For Eac

    1

    2答えて

    私はHTMLでフォーマットされたWebページを持っています。それは次のようである言う: <html> <b> test </b> 私は電子メールの内容がtest (お使いのコンピュータがそれを読み込むことができない場合は、このテキストが太字れる)、およびない<b> test </b>であるように電子メールを送信する方法を知りたいです。

    0

    1答えて

    返信、転送(または基本的に電子メールアイテムへのあらゆる種類の応答を行う)、電子メールの本文を変更したいと思います。私は "送信"イベントでこれを行う方法を知っていますが、私はむしろ変更を見ることができるように構成する前にこれを行うでしょう。 お送り使用: Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolea

    -1

    1答えて

    「CC:」フィールドに10を超える電子メールアドレスがある場合に警告を表示するルールをOutlook 2016で作成する必要があります。 「To:」フィールドに電子メールアドレスを使用して同じことを行う簡単なgoogle検索で、この結果が見つかりました。私はVBAを初めて使っているので、ToというよりCC電子メールを見るために切り替える必要があるかどうかはわかりません。 Private Sub A

    0

    1答えて

    Outlook 2007のマクロでは、インターネットヘッダープロパティにアクセスできますが、メッセージIDプロパティをポイントする方法はわかりません。誰も助けてくださいこの?

    0

    1答えて

    私はOutlookで高度な検索をしようとしています。私はpythonとwin32comを使ってそれを行いますが、これは重要ではありません。 これまでのところ、私のクエリは機能しますが、私の日付フィルタは無視されます。 これが私のフィルタである: "urn:schemas:mailheader:subject" like '%draft%' OR "urn:schemas:mailheader:s

    0

    1答えて

    私は非常にプログラミングの面倒で、ExcelでVBA(マクロレコーダー)を使用しています。 私は約500の大口支出、収入、毎月の予算レポートを送付します。これらのレポートにはそれぞれ固有の件名があります。サンプルの件名は "Report 001"となり、Excelの添付ファイルを "Project A 2016"として保存します。件名が「レポート002」の場合は、ファイルを「プロジェクトB 201

    0

    1答えて

    今日のみ受信したメールを読むようにしています。下のコードは制限していますが、有効なエラーではない条件を投げるコードです。 unread = Trueのような条件を与えたときも同じことがうまくいきます。 Set myItems = myItems.Restrict("DateValue[ReceivedTime]='" & Format(DateValue(Now),"ddddd h:nn AMPM