コメントありがとうございます。

＞個別のメールの仕様に合わせた改造を出来たとしまして、これを試す方法なのですが、
＞メール文のファイル（.eml）はたくさんあるのですが、このファイルのフォルダにmailtorikomi.xls から
＞どのようにアクセスたらよいか（メール取り込みボタンをクリックで取り込めるように）と言うことなんですが・・・・・。

この.emlで保存されているメールはおそらくすでに受信済みのメールとなりますよね？
mailtorikomi.xlsは、「メールサーバー上にあるメールを直接受信してexcelに取り込む」サンプルですので
すでに受信済みのメールを取り込むことは想定して作っておりません。
ですので、メールを受信する部分の記述がおそらく全く必要なくなり、代わって、保存されている.emlファイルを
読み込んでいくような仕組みに変えなければならないかと思います。

＞もしちょっと複雑でシェアーになるようでしたら、料金を教えていただけませんでしょうか？
＞会社に稟議してみようと思います。

浅井様の環境や取り込みたいメールの内容、状態などを把握していませんので、現状では
料金を算出することができません。

お手数ですが、以降、toi@simple-sys.com、米本宛にメールにてお問い合わせいただけますでしょうか？
具体的に、どのようなメールの文章を取り込みたいのかや、取り込んだ結果、どのようなxlsファイル
をお作りになりたいのかのサンプル、使用しているOSやExcelの環境などをお送りいただければ、
その後詳細を確認させていただいたうえ、お見積りができるかと思います。

以上、よろしくお願いいたします。

>VBAの内容について、個別のメールの仕様に合わせた改造はご自身でお願いいたします。

分かりました、何とか自分で改造したいと思います。

最後にあと一つだけ、suggestion　をいただけたらと・・・・・・・。

個別のメールの仕様に合わせた改造を出来たとしまして、これを試す方法なのですが、

メール文のファイル（.eml）はたくさんあるのですが、このファイルのフォルダにmailtorikomi.xls から

どのようにアクセスたらよいか（メール取り込みボタンをクリックで取り込めるように）と言うことなんですが・・・・・。

もしちょっと複雑でシェアーになるようでしたら、料金を教えていただけませんでしょうか？会社に稟議してみようと

思います。

宜しくお願いいたします。

コメントありがとうございます。

今回のデモのプログラムではメールの件名が固定であることを前提で作成されています。
また、VBAの内容について、個別のメールの仕様に合わせた改造はご自身でお願いいたします。

これ以上のサポートをご希望の場合、有償にて対応させていただきますので、
お手数ですが、toi@simple-sys.com、米本宛にメールにてお問い合わせいただけますでしょうか？

なお、ご希望である
・メールの件名が固定ではなく
・さらに、その件名の一部分の情報を抜き出し、セルに反映させる
ことはメールの形式にもよりますが、おそらく可能だとは思われます。

以上、よろしくお願いいたします。

If InStr(result(0), “Subject: 楽○注文”) = 1 Then

このSubject部分なのですが、私のメール形式の場合

If InStr(result(0), “Subject　[〇〇〇〇] の依頼がありました。【54784】”) = 1 Then

となるのですが

この 【54784】 の部分の数字が１メール事に変化してしまうのですが、

どう対処したらよろしいでしょうか、この番号はオーダーナンバーで出来ればそのまま

とりこみたいのですが・・・・・・。

よろしくお願い申し上げます。

取りあえずSubject部分

If InStr(result(0), “Subject: 楽○注文”)

と項目部分の

If InStr(mailline(j), “【受付日時】”) = 1 Then

Mid(mailline(j), InStr(mailline(j), “】”) + 1)

の部分を４０項目全てに反映させて試してみたいと思います。

不具合がありましたら、また相談に載っていただき、ご教授下さいますようお願い申し上げます。

コメントありがとうございます。

＞Do～Looop間だけでよろしいですか、
＞If InStr(result(0), “Subject: 楽○注文”)
＞　　　　　　　　　　　　　　　　　　↑
＞あとここも勿論換えなくてはいけませんよね

そうですね、そこも変えないといけません。
その他、メールの形式などによっては、
Do～Loop間以外の部分も変えなければならないかもしれません。

＞【受付日時】2011/04/09 09:26.32
＞　　　↑
＞項目はこのようなものなのですが、全部で４０項目あります。
＞
＞そうしますと、下記のような感じになるかと思いますが
＞
＞Do
＞If InStr(mailline(j), “【受付日時】”) = 1 Then
＞Sheets(“Sheet1″).Cells(dataline, 6).Value = Mid(mailline(j), InStr(mailline(j), “：”) + 1)
＞j = j + 1　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　↑
＞　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　この部分
＞はどのようにすればいいのでしょうか？　

まず、元々の
—
If InStr(mailline(j), “注文年月日：”) = 1 Then
Sheets(“Sheet1″).Cells(dataline, 6).Value = Mid(mailline(j), InStr(mailline(j), “：”) + 1)
—
のVBAの中身はご理解いただいていますか？

メール本文の行の先頭が「注文年月日：」から始まっている場合、
その行の最初の「:」の次の文字以降を抜き出し、その値をセルに代入する、
という意味になります。

＞【受付日時】2011/04/09 09:26.32
という文字列が行の先頭にある場合、「】」の次の文字以降を抜き出すとしたら、
抜き出す部分は
Mid(mailline(j), InStr(mailline(j), “】”) + 1)
になるかと思います。

以上、お試しください。

Do～Looop間だけでよろしいですか、

If InStr(result(0), "Subject: 楽○注文")
　　　　　　　　　　　　　　　　　　　↑
あとここも勿論換えなくてはいけませんよね

私のメール形式は下記のようになっています。

【受付日時】2011/04/09 09:26.32
　　　↑
項目はこのようなものなのですが、全部で４０項目あります。

そうしますと、下記のような感じになるかと思いますが

Do
If InStr(mailline(j), "【受付日時】") = 1 Then
Sheets("Sheet1").Cells(dataline, 6).Value = Mid(mailline(j), InStr(mailline(j), "：") + 1)
j = j + 1　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　↑
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　この部分　　　　　　　　　　はどのようにすればいいのでしょうか？　

宜しくご教授お願いいたします。　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
　　　　

コメントありがとうございます。

＞そうすると、mailtorikomi@simple-sys.comはデモ用で直接Excelに取り込むｌものなんですか・・・・。

mailtorikomi@simple-sys.comへ空メールを送っていただくと、こちらから、
「サンプル登録用フォームURL」というタイトルのメールをお送りします。
このメールに記載されたURLへアクセスすると、フォームと「ダミー8件送信」というボタンの
画面が出たかと思います。このダミーのサンプルメールを送るためのアドレスが
mailtorikomi@simple-sys.comとなります。

>>メールサーバーに未受信のメールがない状態
>とは、メールサーバーがからっぽの状態と言う意味ですか・・・・。

はい。メールサーバーがからっぽの状態という意味になります。

>>このデモ用にフリーメール（Yahooやgoogleなど）で
>>新たに別途メールアドレスを作成
>
>すみません、これってやったことがないんですが、簡単に作成できるんですか？

簡単かどうかはやってみていただかないと分かりませんが、Yahooだとトップページ
http://www.yahoo.co.jp/
の右のほうに「メールアドレス取得」というリンクがあります。そこから手順に従って
やっていって見てください。
なお、Yahooの場合、メールアドレスを取得した後、POP3で受信できるように
設定する必要があります。この手順は少し難しいかもしれません。

フリーメールを取得するのが難しければ、今お使いのプロバイダーのメールアドレスでも
お試しいただけます。
ただ、普段お使いのメールアドレスには、いろいろなメールが届くと思います。
このデモを動かしている最中にもメールが届く可能性がありますので、
もし万が一、プログラムや設定に不具合があり、本来OutLookExpressで受信すべき
メールを間違ってこのプログラムで受信してしまったり、削除してしまう可能性が
ないとはいえません。それを避けるため、テストされる際はできるだけ、
普段お使いのメールアドレス以外でお願いしています。

＞それと、mailtorikomi.xls のRange(“B2″)に入力するpop3サーバーはOutLookExpress （私の場合このメールソフトですが）のpop3サーバーでよろしいんですよね。

フリーメールを使用される場合は、フリーメール用のpop3サーバーになります。
今お使いのプロバイダーのメールアドレスをご利用いただく場合は、
OutLookExpressで設定されているpop3サーバーになります。

＞又、デモではなく、正式にmailtorikomi.xls を使用する場合はやはり、OutLookExpress の
＞普段使っているメールアドレスをmailtorikomi.xls のRange(“B3″)に入力すると言うことですよね。

そういう事になります。B2～B4に現在お使いのメールサーバーの設定をする形になります。

>最後に、デモが無事成功したものとしましての質問ですが、

>>このプログラムでは決まった形式のメールしか受信できませんが、VBAで記載されている内容を修正すれば、
>>いろいろな形式でのメールを取り込むことが可能になります。

>これは、下記モジュールの　≪注文年月日≫ の部分を自分のメール項目名に書き換えて、
>この項目数は何個でも設定可能と言うことでしょうか？

いえ、このモジュールのプログラムはあくまで、このサンプルメールの形式のメールを取り込む
為のプログラムになります。

浅井さんがご利用のメールがどのような形式かわかりませんが、
「注文年月日」の部分だけを書き換えても、おそらく取り込むことはできないと思います。
浅井さんがご利用のメールの形式に合わせて、
Do
・
・
Loop While j<=endline

の間のプログラムの全体を書き換える必要があると思います。

そのプログラムを浅井さんが取り込みたいメールの形式に書き換えれば、項目は
何個あっても取り込みは可能だと思います。

またわからないことがありましたら、コメント、または　toi@simple-sys.comまでメールください。

ん、違うかな・・・・。

>メールサーバーに未受信のメールがない状態

とは、メールサーバーがからっぽの状態と言う意味ですか・・・・。

ん、これも違うかな・・・・。

>このデモ用にフリーメール（Yahooやgoogleなど）で
>新たに別途メールアドレスを作成

すみません、これってやったことがないんですが、簡単に作成できるんですか？

それと、mailtorikomi.xls のRange(“B2″)に入力するpop3サーバーはOutLookExpress （私の場合このメールソフトですが）のpop3サーバーでよろしいんですよね。

又、デモではなく、正式にmailtorikomi.xls を使用する場合はやはり、OutLookExpress の普段使っているメールアドレスをmailtorikomi.xls のRange(“B3″)に入力すると言うことですよね。

ん、勘違いしてるかな・・・・・。

すみません、どうも「デモ」と「普段のメール扱い」とがこんがらがってしまって・・・・・。

最後に、デモが無事成功したものとしましての質問ですが、

>このプログラムでは決まった形式のメールしか受信できませんが、VBAで記載されている内容を修正すれば、
>いろいろな形式でのメールを取り込むことが可能になります。

これは、下記モジュールの　≪注文年月日≫ の部分を自分のメール項目名に書き換えて、この項目数は何個で

も設定可能と言うことでしょうか？

Do
If InStr(mailline(j), “注文年月日：”) = 1 Then
Sheets(“Sheet1″).Cells(dataline, 6).Value = Mid(mailline(j), InStr(mailline(j), “：”) + 1)
　　　　　　　　　　　　　　　　　　　　　　　　　・
　　　　　　　　　　　　　　　　　　　　　　　 　　　・
　　　　　　　　　　　　　　　　　　　　　　　 　　　　・
　　　　　　　　　　　　　　　　　　　　　　　　 　　　・
　　　　　　　　　　　　　　　　　　　　　　　　　　 　・
Else
j = j + 1
End If
Loop While j <= endline

以上宜しくご教授のほどお願い申し上げます。

コメントありがとうございます。

＞使用するメールアドレスは普段使わないメールアドレス

こちらの意味ですが、普段お使いになられているプロバイダー（biglobeやNiftyなど）の
メールアドレスとは別に、このデモ用にフリーメール（Yahooやgoogleなど）で
新たに別途メールアドレスを作成して、そちらのメールアドレスでお試しください、という意味です。

このデモを動かす際に、普段お使いのメールアドレスを使用してしまうと、万が一、
このデモのプログラムを実行する際、不具合や設定ミスなどがあった場合、
本来取り込むべきではないメールを誤ってExcelで取り込んでしまう可能性があるためです。

＞この際、メールソフトで受信してしまうと、mailtorikomi.xlsから受信できなくなってしまうので、受信しないで下さい
このデモは、受注メールを普段お使いのメールを受信するソフト（WindowsメールやOutLookExpressなど）の
代わりにExcelに直接取り込むデモとなります。
Excelが取り込みを行う前に普段のメールを受信するソフトを使用してしまうと、メールサーバー上は
空っぽになってしまいますので、Excelが取り込もうとしても「取り込むメールがない」となってしまいます。

8件のメールが「toi@simple-sys.com」から届くと思いますが、そのメールを普段お使いのメールを受信するソフト
で受信してしまう前に、このExcelのデモのプログラムで取り込んでください、という意味です。

またわからないことがありましたら、コメント、または　toi@simple-sys.comまでメールください。