Video

例） ①「7.13 佐藤様　鈴木様.xls」 ②「7.13 佐藤様.xls」 a株式会社宛のメールには①を添付。 b株式会社宛のメールには②を添付したいです。 a株式会社宛のメールでは①が添付されますが、b株式会社宛のメールでも②ではなく、①のファイルが添付されてしまいます。 a株式会社宛のメールの添付ファイルは「今日の日付、佐藤、鈴木」を含むファイルを添付するようにしているので問題なく①が添付されます。

しかし、b株式会社宛のメールでも「今日の日付、佐藤」を含むファイルを添付するようにしているため、a株式会社用の①のファイル名と被っているため、本来添付したい②ではなく、①のファイルが添付されてしまいます。 そこで、b株式会社宛のメールの添付ファイル②を「今日の日付、佐藤」を含み、「鈴木」を含まないファイルを指定ことで①をファイル添付させないようにしたいと考えています。 この条件で添付しようと思っていろいろ試していますが、うまくコードが書けません。どうすればできますか？😢

Dim outlookObj As Outlook.Application Set outlookObj = CreateObject("Outlook.Application") Dim mailObj As Outlook.MailItem Set mailObj = outlookObj.CreateItem(olMailItem) Const WF As String = "C:\Users\〇〇\OneDrive\デスクトップ\" Dim keyword As String Dim WFna As String keyword = Format(Date, "M.D") WFna = Dir(WF & "*" & keyword & "*" & "*佐藤*" & "*<>鈴木*".xlsm") ↑ここでつまづいてます。。 鈴木を含めないの書き方がわかりません。。 With mailObj .Attachments.Add WF & WFna .Display End With

Dim outlookObj As Outlook.Application Set outlookObj = CreateObject("Outlook.Application") Dim mailObj As Outlook.MailItem Set mailObj = outlookObj.CreateItem(olMailItem) Const WF As String = "C:\Users\〇〇\デスクトップ\" Dim keyword As String Dim WFna As String keyword = Format(Date, "M.D") WFna = Dir(WF & "*" & keyword & "*" & "*<>鈴木*" & "*佐藤*".xlsm") ↑ここでつまづいてます。。 鈴木を除くにはどうすればいいでしょうか？ With mailObj .Attachments.Add WF & WFna .Display End With

Dim outlookObj As Outlook.Application Set outlookObj = CreateObject("Outlook.Application") Dim mailObj As Outlook.MailItem Set mailObj = outlookObj.CreateItem(olMailItem) Const WF As String = "C:\Users\〇〇\デスクトップ\" Dim keyword As String Dim WFna As String keyword = Format(Date, "M.D") WFna = Dir(WF & "*" & keyword & "*" & "*<>鈴木*" & "*佐藤*".xlsm") ↑ここでつまづいてます。。 鈴木を除くにはどうすればいいでしょうか？ With mailObj .Attachments.Add WF & WFna .Display End With

ご視聴いただきありがとうございます！ ご質問にご回答いたします。 ①送信されないと思います セル内のアドレスがハイパーリンクになっていれば同一セル内改行で横一列になります。また、ハイパーリンクではないテキスト状態でも、メールアドレスの間にセミコロン（；）を入れておけば大丈夫です。 ②セルを繋げたい場合は以下の例を参考としてください。 To = Range("A1") & ";" & Range("A2").Value

@@user-ps6es4yd6c ありがとうございます！ 教えていただいた方法を試したところうまくできました！

@@user-ps6es4yd6c もう一点質問があるのですが、よろしいでしょうか。。 動画で紹介のあったように 本文をエクセル内に書き込み指定して、送信しようと考えています。 そこで、本文の日付などの変動する部分を（日付）と入力し、outlookで送信する際にリプレイスで置き換えたいと考えています。 しかし、Replace関数を使っているのにoutlookでは置換されていないのですが、なぜだかお分かりでしょうか？ 以下を動画のコードにプラスしています。 Body = replace(Body,”「日付」”,range(“A1”).value)

例えば本文がセルA7に入力されていて、日付をA1の内容に置き換えたい場合は以下のようになります。 .Body = Replace(Range("A7"), "「日付」", Range("A1")) また、当チャンネルのExcel関数に関する#110を見ていただくと、VBAで書き換える場合だけでなく、ゼル内の日付を制御する方法も載せておりますので参考にしてください。

@@user-ps6es4yd6c ありがとうございます。 試したところ置換できはしたのですが、1つのときのみできている状況です。 セル内の本文に置換したい言葉が3つあり、それをいただいた式で試しても最後の3つ目のみが置換され、1つ目と2つ目のものは置換前のままでメールが作成されます。 どうすればいいのでしょうか？

ご視聴ありがとうございます！ VLOOKUPやXLOOKUPで大丈夫です。 動画は、VBAでXLOOKUPを使用してますのでセル事態に関数は入力されてません。 #031の動画のやり方でプルダウンでC2セル変更時に起動させてます。