• 締切済み

csvファイルをメールに自動で添付して送信する方法

現在、アクセスのデータをボタン1つでA社.csv、B社.csv、C社.csv・・・という形で出力しています。 それらのファイルを、メールに添付して各社に送っているのですが、 自動で添付・宛先選択・送信まで行うようなことがマクロなどで出来るでしょうか。 また、メール本文に各社名や各社担当者名も自動で記載することが出来るでしょうか。 出来るとしたらどのようなやり方になりますか。 ご存知の方がいらっしゃったら教えて下さい。 何卒宜しくお願いいたします。

みんなの回答

  • imogasi
  • ベストアンサー率27% (4737/17068)
回答No.1

＞出来るでしょうか できます。 ーー 質問はＡＣＥＳＳのモジュールからＣＳＶファイル名を指定して、メイルに添付するということでしょう。 これはＡＣＣＥＳＳＶＢＡの範囲内の課題でなく、一般には他ソフトとの連携は難しい課題だが、ＩＥとメイル送信は特別にコード例がＷＥＢや一部のＶＢＡ解説書などに載ってます。 Ｇｏｏｇｌｅででも、「vba メイル送信」で照会して、出てくる記事をよく読み。やってみて、それから疑問点を絞って、質問してください。 大まかな方法として、ＶＢＡレベルで ・ＣＤＯ ・ＢＡＳＰ２１ ・Ｄｉａｌｏｇs(xlDialogSendMail) ・ＯｕｔｌｏｏｋＶＢＡ など直ぐ解説が出ます。 こういうところへ質問して、全面的に（例えばコードを書いてくれという風な）人に頼るのでなく、ＷＥＢでも照会して勉強する、クセをつけましょう。

全文を見る
すると、全ての回答が全文表示されます。
  1. カテゴリ
  2. パソコン・スマートフォン
  3. ソフトウェア
  4. オフィス系ソフト

関連するQ&A

  • 添付ファイルをつけてメールを送る

    以下のようなイメージでプログラムを制作しようと思っています。 csvファイル メールアドレス1,添付ファイル1 メールアドレス2,添付ファイル2 メールアドレス3,添付ファイル3 メールアドレス4,添付ファイル4 　　・ 　　・ 　　・ cgiファイル ・csvファイルを読み込む 　　↓ ・タイトル、本文は固定。 ・メールアドレス1には添付ファイル1を送る。（アドレス2なら2を添付） ・csvファイルの行数だけこれを繰り返す。 ----------------------------------------------------------------- フォーム入力送信→担当者にメールが届く というのはサンプルをもとに作る事ができたのですが、 それに「添付ファイルを付ける」にはどうしたら良いのでしょうか？ 現在メールの書き出しは下記のようになっています。（添付無し状態） #######################################################メール送信 $head = "From: 送信者" . "\n" . "To: 宛先" . "\n" . "Subject: タイトル" . "\n\n"; open(MAIL, "| sendmailパス -t -f'送信者'") ; print MAIL "$head"; print MAIL <<__END__; ###メール本文### __END__ close(MAIL);

    • ベストアンサー
    • Perl
  • フォルダに入れるだけで自動的にメール添付する方法ってありますか？

    メールの操作に慣れていない中高年の方向けに、特定のファイルをメールに添付して送信して貰う方法を考えています。 マウスでファイルをドラッグする程度は可能です。 そこで、特定のフォルダのファイルを自動的にメールに添付し、特定の宛先に自動的に送信できるようなメールソフトがあったら良いなぁと思いました。 送信するだけで、受信はしない事が前提です。 そんな都合の良いことはできないでしょうか？ 以前、EDMAXでマクロを使って近いことができそうな事を教えてもらったことがありますが、難しそうでした。

  • outlookで個別添付ファイル付きメール一括送信

    お世話になります。 Windows10でMicrosoft 365のOutlookやExcelを使用しています。 50人くらいに、メール本文中には宛先の社名と氏名を記入し、それぞれに別々の添付ファイルを付けたメールを送る必要があります。 Excelシートに メールアドレス、社名、氏名、添付ファイル名 のリストを作っておいて、差込印刷のように一括送信する（できることなら、いきなり送信されるのではなく、下書きフォルダに保存されると尚良い）ことができるソフト(？)など、ご存じの方がいらっしゃいましたら、ぜひ教えてください。 マクロを自分で書くスキルはありません。 宜しくお願いいたします。

  • ExcelやWordなどのファイルから「添付してメール送信」が出来ない

    ExcelやWordファイルを開いた状態で、[ファイル]→[送信]→[メールの宛先](添付ファイル)を選んでメール送信しようとしているのですが、「メールが送信できませんでした」というエラーになってしまい送信できなくて困っています。 そのメールを「×」で消すと、[送信トレイ]にメールが残ります。 オンライン状態になっているし、[ファイル]→[送信]→[メールの宛先]を選んで送信するとそのまま送信できるので、ファイルを本文にして送信する方法だと可能のようですが、添付ファイルにすると、どうしても送信できません。 Ｏｆｆｉｃｅ製品が悪いのか、設定がおかしいのかと、いろいろと探ってはいるのですが、メモ帳を添付しようとしてもダメだということがわかり、まったく解決の糸口がつかめなくなって困っていますので、どなたかご存知の方がいらっしゃいましたら、知恵を貸していただけませんでしょうか？ 宜しくお願いいたします。

  • VBAメール添付ファイル付送信

    VBAメール添付ファイル付送信 Win2000 Access2000 添付ファイル付メールの送信を以下の様に組んでおります 以下の組み方ですと本文の下か、上かにしか添付ファイルを付ける事ができません 本文の中間に添付ファイルを付ける事は可能なのでしょうか？ 希望する内容↓ ++++++++++++++++++++++++++++++++++++++++++++++++++++++ 本文○○○○○○○○○○○○ ここに添付ファイル 本文○○○○○○○○○○○○ ++++++++++++++++++++++++++++++++++++++++++++++++++++++ With myMail 　　.To = "メールアドレス" 　　.Subject = "例：メールタイトル" 　　.Attachments.Add("サーバに保存してあるEXCELのフルパス") 　　.Body = "本文 (メッセージ)" 　　.send End With 宜しくお願いします

  • ヤフーメール　添付　ファイル　送信できない

    ヤフーメールは２５MBまでなら添付文書の送信が可能ですよね？ 15MBのファイルを送ったのですが、受信できてませんでした。 本文なし、宛先なしなので、25MB行くことはあり得ないです。 でも、こちらでヤフーメールで送信時には、きちんと、送信されました。と表示されました。 受信側のサーバーに問題があるのでしょうか？ ちなみに送ったファイルはＰＤＦです。

  • 添付ファイルをメール送信出来ない

    お客様（販売店）に見積書（EXCELで作成　マクロ含む）メール送信していましたが御社のソフトを導入以来　先方より添付ファイルを開けないとの苦情があります。マクロの設定を変更してみましたが、だめなようです。方法教えてください。　

  • Outlook2000でメールの自動送信方法

    こんなことが出来たらとても助かるのですが・・・・ 全部で100件程度のメール送付先リストがあります。 リストはエクセルで、 A列に、あて先部署 B列に、あて先担当者名 C列に、メールアドレス　　です。 このリストに対して、いっせいにメールを送りたいのですが、同じ内容ではなく、個別に用意したエクセルのファイルを添付し、同一内容の定型の文言（送付案内および発信者の名前）をメール本文に入れて送りたいのです。 こんなこと可能でしょうか？ 添付するエクセルのBookの名前は、あて先部署となっており、同一フォルダー内に格納しております。 OSはWindows2000、エクセルも2000、メール（OutLook）も2000です。 多少はエクセルVBAをかじってますけど、こんなことは出来るのかどうか見当がつきません。

  • Accessのマクロを使って複数人にメールを送る方法を教えてください。

    Accessのマクロを使って複数人にメールを送る方法を教えてください。 Access2003を使用しています。 いつも、マクロの「オブジェクトの送信」を流用して複数人にメールを送っています。 ・「オブジェクトの送信」だけど、「オブジェクトの種類」や「オブジェクト名」はブランク ・「出力形式」もブランク ・「メッセージ」のところに、メール本文を書く ・「宛先」に送る人間の名前を入れる この方法で問題なくOutlookが起動しメールが配信できたのですが、今回配信したい本文はかなり長文で「メッセージ」部分に入りきりません（文字数オーバーで後半が切れる）。 そこで、 ・「オブジェクトの送信」だけど、「オブジェクトの種類」や「オブジェクト名」はブランク ・「出力形式」もブランク ・「メッセージ」も「宛先」も「件名」もブランク ・「テンプレート　ファイル」にテンプレート格納先のフォルダとファイル名のパスを記入 にしたのですが、テンプレートとして認識してくれませんでした。 （何もかもブランクのOutlookが一枚立ち上がるのみ・・・） どこがいけなかったのでしょう？ というか、そもそもマクロの「オブジェクトの送信」では、テンプレートを使用したメール配信は無理、VBAを使わないとダメなのでしょうか？ 詳しい方教えてください。よろしくおねがいします。 （VBAしか使えない場合、書き方も教えていただけると助かります）

  • VBで添付ファイル付きのメールを送信したい

    こんにちは。いつもお世話になっております。 現在、VB6.0でメーラーを起動し、そこへ添付ファイルを付けて送信を行うと言う作業を行っております。 ユーザー側で、実行ボタンを押したときに送信まで行ってしまうか、送信はせず、新規メールの起動だけで終るかを選択できるようになっています。 自分なりに色々と調べて、MAPIを使用したプログラムでの操作はできたのですが、テストメーラーをOutlook ExpressからMicrosoft Outlookに変更したら、送信部分が上手く動作しませんでした。 どのメーラーでも上手く動くように設定したいのですが、何か方法はありませんでしょうか？ また、送信時に出てしまう確認メッセージを出さずに自動送信する方法はありますか？MAPIを使用せずに添付ファイル付きのメールを送信する方法でも構いません。 宜しくお願い致します。 MAPISession1.SignOn MAPIMessages1.SessionID = MAPISession1.SessionID MAPIMessages1.Compose MAPIMessages1.RecipType = mapToList 'あて先欄に表示させたい文字 MAPIMessages1.RecipDisplayName = "テストさん" 'あて先のメールアドレス MAPIMessages1.RecipAddress = "SMTP:メールアドレス" MAPIMessages1.MsgSubject = "納品明細" MAPIMessages1.MsgNoteText = "本文内容" & vbCrLf MAPIMessages1.AttachmentPathName = App.Path & "\納品明細.xls" 'チェック有りの場合は自動送信 If chkAuto.Value = 0 Then 　'Falseにすると自動送信になります 　MAPIMessages1.Send True Else 　MAPIMessages1.Send False End If MAPISession1.SignOff

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する