Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


5023 / 13644 ツリー ←次へ | 前へ→

【52773】年末年始の行動予定表(緊急連絡用) marai 07/12/2(日) 23:56 質問[未読]
【52775】Re:年末年始の行動予定表(緊急連絡用) neptune 07/12/3(月) 9:50 発言[未読]
【52784】Re:年末年始の行動予定表(緊急連絡用) marai 07/12/3(月) 21:39 発言[未読]
【52809】Re:年末年始の行動予定表(緊急連絡用) あゆたろう 07/12/4(火) 17:43 発言[未読]
【52816】Re:年末年始の行動予定表(緊急連絡用) marai 07/12/4(火) 22:57 発言[未読]
【52819】Re:年末年始の行動予定表(緊急連絡用) かみちゃん 07/12/5(水) 2:03 発言[未読]
【52821】Re:年末年始の行動予定表(緊急連絡用) marai 07/12/5(水) 7:35 発言[未読]
【52836】Re:年末年始の行動予定表(緊急連絡用) あゆたろう 07/12/5(水) 15:20 発言[未読]
【52862】Re:年末年始の行動予定表(緊急連絡用) marai 07/12/7(金) 7:02 発言[未読]
【52869】Re:年末年始の行動予定表(緊急連絡用) あゆたろう 07/12/7(金) 11:57 発言[未読]
【52890】Re:年末年始の行動予定表(緊急連絡用) marai 07/12/7(金) 22:56 発言[未読]
【52892】Re:年末年始の行動予定表(緊急連絡用) かみちゃん 07/12/7(金) 23:08 発言[未読]
【52893】Re:年末年始の行動予定表(緊急連絡用) marai 07/12/8(土) 4:26 発言[未読]
【52898】Re:年末年始の行動予定表(緊急連絡用) かみちゃん 07/12/8(土) 13:56 発言[未読]
【52903】Re:年末年始の行動予定表(緊急連絡用) marai 07/12/8(土) 21:21 お礼[未読]
【52911】Re:年末年始の行動予定表(緊急連絡用) かみちゃん 07/12/9(日) 11:48 発言[未読]
【52912】Re:年末年始の行動予定表(緊急連絡用) marai 07/12/9(日) 15:19 発言[未読]
【52913】Re:年末年始の行動予定表(緊急連絡用) かみちゃん 07/12/9(日) 15:36 発言[未読]
【52916】Re:年末年始の行動予定表(緊急連絡用) りん 07/12/9(日) 16:12 発言[未読]
【52921】Re:年末年始の行動予定表(緊急連絡用) marai 07/12/9(日) 17:19 発言[未読]
【52924】Re:年末年始の行動予定表(緊急連絡用) かみちゃん 07/12/9(日) 17:37 発言[未読]
【52925】Re:年末年始の行動予定表(緊急連絡用) marai 07/12/9(日) 18:02 発言[未読]
【52929】Re:年末年始の行動予定表(緊急連絡用) かみちゃん 07/12/9(日) 19:05 発言[未読]
【52933】Re:年末年始の行動予定表(緊急連絡用) marai 07/12/9(日) 20:17 お礼[未読]
【52978】Re:年末年始の行動予定表(緊急連絡用) marai 07/12/10(月) 19:11 お礼[未読]
【53031】Re:年末年始の行動予定表(緊急連絡用) あゆたろう 07/12/12(水) 16:54 発言[未読]
【53050】Re:年末年始の行動予定表(緊急連絡用) marai 07/12/12(水) 21:02 お礼[未読]
【52785】Re:年末年始の行動予定表(緊急連絡用) お願い 07/12/3(月) 22:28 発言[未読]
【52787】Re:年末年始の行動予定表(緊急連絡用) marai 07/12/4(火) 6:10 発言[未読]
【52788】Re:年末年始の行動予定表(緊急連絡用) お願い 07/12/4(火) 8:33 発言[未読]

【52773】年末年始の行動予定表(緊急連絡用)
質問  marai  - 07/12/2(日) 23:56 -

引用なし
パスワード
   1.表の様式
--------------------------------------------------------------------------
|所属|氏名|12/29|12/30|12/31| 1/1 | 1/2 | 1/3 | 1/4 | 1/5 | 1/6 | 電話番|
--------------------------------------------------------------------------
|総務|山本| ○ | ○ | × | × | × | × | △ |  S |  S |1234-78|
|総務|加藤| ○ | ○ | × | × | × | × | △ |  S |  S |1234-78|
|総務|佐藤| ○ | ○ | × | × | × | × | △ |  S |  S |1234-78|
|総務|山田| ○ | ○ | × | × | × | × | △ |  S |  S |1234-78|

2.エクセル表で空欄を配布し、エクセル表で予定入力後を回収
3.総務で上記1.の表のように転記

お願い:3.の転記作業を自動化したい。ご教示ください。
対象者は約200名程なのですが、少しでも効率化したい。
以上

【52775】Re:年末年始の行動予定表(緊急連絡用)
発言  neptune  - 07/12/3(月) 9:50 -

引用なし
パスワード
   こんにちは

この掲示板の「VBA質問箱基本ポリシー」は読みましたか?
全く無視してますよ。

【52784】Re:年末年始の行動予定表(緊急連絡用)
発言  marai  - 07/12/3(月) 21:39 -

引用なし
パスワード
   文句だけ言うなら投稿するな!


▼neptune さん:
>こんにちは
>
>この掲示板の「VBA質問箱基本ポリシー」は読みましたか?
>全く無視してますよ。

【52785】Re:年末年始の行動予定表(緊急連絡用)
発言  お願い  - 07/12/3(月) 22:28 -

引用なし
パスワード
   ▼marai さん:
>1.表の様式
>--------------------------------------------------------------------------
>|所属|氏名|12/29|12/30|12/31| 1/1 | 1/2 | 1/3 | 1/4 | 1/5 | 1/6 | 電話番|
>--------------------------------------------------------------------------
>|総務|山本| ○ | ○ | × | × | × | × | △ |  S |  S |1234-78|
>|総務|加藤| ○ | ○ | × | × | × | × | △ |  S |  S |1234-78|
>|総務|佐藤| ○ | ○ | × | × | × | × | △ |  S |  S |1234-78|
>|総務|山田| ○ | ○ | × | × | × | × | △ |  S |  S |1234-78|
>
>2.エクセル表で空欄を配布し、エクセル表で予定入力後を回収
>3.総務で上記1.の表のように転記
>
>お願い:3.の転記作業を自動化したい。ご教示ください。
>対象者は約200名程なのですが、少しでも効率化したい。
>以上

1の表を見せられて、3の転記作業を自動化したいと言われても
1の表は結果であり、その基になるものが何なのかが不明。

あと、2の配布とは、複数のファイルをばらまいて回収し、そこから所属部署毎に
転記したいとか。
或いは1つのファイルを回覧し書き込んでもらい、そこから所属部署毎に転記したいとか。
どこから、どこへ、転記したいのか?

【まず「何がしたいのか」を書いてください】
ここがポイントなのでは?

【52787】Re:年末年始の行動予定表(緊急連絡用)
発言  marai  - 07/12/4(火) 6:10 -

引用なし
パスワード
   ▼お願い さん:
>▼marai さん:
>>1.表の様式
>>--------------------------------------------------------------------------
>>|所属|氏名|12/29|12/30|12/31| 1/1 | 1/2 | 1/3 | 1/4 | 1/5 | 1/6 | 電話番|
>>--------------------------------------------------------------------------
>>|総務|山本| ○ | ○ | × | × | × | × | △ |  S |  S |1234-78|
>>|総務|加藤| ○ | ○ | × | × | × | × | △ |  S |  S |1234-78|
>>|総務|佐藤| ○ | ○ | × | × | × | × | △ |  S |  S |1234-78|
>>|総務|山田| ○ | ○ | × | × | × | × | △ |  S |  S |1234-78|
>>
>>2.エクセル表で空欄を配布し、エクセル表で予定入力後を回収
>>3.総務で上記1.の表のように転記
>>
>>お願い:3.の転記作業を自動化したい。ご教示ください。
>>対象者は約200名程なのですが、少しでも効率化したい。
>>以上
>
>1の表を見せられて、3の転記作業を自動化したいと言われても
>1の表は結果であり、その基になるものが何なのかが不明。
>
>あと、2の配布とは、複数のファイルをばらまいて回収し、そこから所属部署毎に
>転記したいとか。
>或いは1つのファイルを回覧し書き込んでもらい、そこから所属部署毎に転記したいとか。
>どこから、どこへ、転記したいのか?
>
>【まず「何がしたいのか」を書いてください】
>ここがポイントなのでは?

確かにご指摘のとおりですね。
●その基になるものは、1.の表の1人分です(当然見出しを含めて2行)。
●それを各人にメールで添付して送信し、記入後メール返信してもらいます。
●その後、1人分づつ1.の表になるように転記(コピー&貼り付け)していきます。
以上ですが、小生マクロなどまったく知識がないので、ご教示いただきたく
投稿しました。よろしくお願いします。

【52788】Re:年末年始の行動予定表(緊急連絡用)
発言  お願い  - 07/12/4(火) 8:33 -

引用なし
パスワード
   ▼marai さん:
>▼お願い さん:
>>▼marai さん:
>確かにご指摘のとおりですね。
>●その基になるものは、1.の表の1人分です(当然見出しを含めて2行)。
>●それを各人にメールで添付して送信し、記入後メール返信してもらいます。
>●その後、1人分づつ1.の表になるように転記(コピー&貼り付け)していきます。
>以上ですが、小生マクロなどまったく知識がないので、ご教示いただきたく
>投稿しました。よろしくお願いします。

雛形を各位にメールで送信して記入後に返信してもらう。
と言う事は、記入後返信されたファイルは全て同じファイル名(のハズ?)

200名くらいとのことですが、ファイル名が同じファイルが200個あれば、
どこかのフォルダに保存するにも、手作業で名前を変更して行かなくては
ならないのでは?
保存しないのなら200通のメールの添付ファイルを、開いて別ブックのシートに
コピペしてをファイルを閉じてまた別メールを開くを、200回繰り返しに
なるような。

マクロ実行以前の問題の方が大きいように思いますけど。
諸先輩より良きアドバイスが頂ければですが、私はメーラーとExcelを組み合わせた
事がないもので、疑問は生じてますが良きアドバイスが出てきません。

【52809】Re:年末年始の行動予定表(緊急連絡用)
発言  あゆたろう  - 07/12/4(火) 17:43 -

引用なし
パスワード
   marai さん、こんにちは。
あゆたろうです。
VBA勉強中ですが、初心者です。
お願いさんの言う様に大変そうですが、案として(可能かどうかは??)
・メール送信時点からマクロ化してしまう。SendMailで出来るはず。
・送信するリストを作成しておいて、送信前にブック名を送信相手の名前とかにする。
(私の会社は従業員No.や名前で社内Eメールが送信できます。連休の長さから同規模の会社と想定しました。)
・返信されてきたメールを一つのフォルダーに収納する(手作業かメールの設定?私は解りません)
・それをマクロで集計する。
ってな感じで出来そうな気がします。勉強がてら作ってみます。
といっても自宅や仕事の合間で、しかも初心者なので時間が掛かるでしょう。

私はneptuneさんや他の回答者の方も大変尊敬しています。
今回のmarai さんの質問は、作成依頼にかなり近いものがあるようにおもわれます。
まずはあの発言を撤回されれば、識者からの回答もつくかもしれません。
きっと時間に追われてあせっていての発言で本意ではないでしょうが、、、。

【52816】Re:年末年始の行動予定表(緊急連絡用)
発言  marai  - 07/12/4(火) 22:57 -

引用なし
パスワード
   こんばんは。
>今回のmarai さんの質問は、作成依頼にかなり近いものがあるようにおもわれます。
>まずはあの発言を撤回されれば、識者からの回答もつくかもしれません。
 ⇒そのとおりですね。近いうちに作成依頼しなければならないので、
  ついつい、乱暴な発言をしてしまいました。申し訳ないと思っています。

>(私の会社は従業員No.や名前で社内Eメールが送信できます。連休の長さから同規模の会社と想定しました。)
  ⇒小生の勤務している会社は、名前で検索、もしくは組織のツリーから対象者を選択して社内Eメールが送信できます。

>・送信するリストを作成しておいて、送信前にブック名を送信相手の名前とかにする。
  ⇒200名分なら200回ファイル名を送信相手の名前にして、200回個別に送信するということですか?それも大変ですね。雛形のファイルを1個添付して、200名に一斉に送信する方法で何とかならないでしょうか?

▼あゆたろう さん:
>marai さん、こんにちは。
>あゆたろうです。
>VBA勉強中ですが、初心者です。
>お願いさんの言う様に大変そうですが、案として(可能かどうかは??)
>・メール送信時点からマクロ化してしまう。SendMailで出来るはず。
>・送信するリストを作成しておいて、送信前にブック名を送信相手の名前とかにする。
>(私の会社は従業員No.や名前で社内Eメールが送信できます。連休の長さから同規模の会社と想定しました。)
>・返信されてきたメールを一つのフォルダーに収納する(手作業かメールの設定?私は解りません)
>・それをマクロで集計する。
>ってな感じで出来そうな気がします。勉強がてら作ってみます。
>といっても自宅や仕事の合間で、しかも初心者なので時間が掛かるでしょう。
>
>私はneptuneさんや他の回答者の方も大変尊敬しています。
>今回のmarai さんの質問は、作成依頼にかなり近いものがあるようにおもわれます。
>まずはあの発言を撤回されれば、識者からの回答もつくかもしれません。
>きっと時間に追われてあせっていての発言で本意ではないでしょうが、、、。

【52819】Re:年末年始の行動予定表(緊急連絡用)
発言  かみちゃん  - 07/12/5(水) 2:03 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>>(私の会社は従業員No.や名前で社内Eメールが送信できます。連休の長さから同規模の会社と想定しました。)
>  ⇒小生の勤務している会社は、名前で検索、もしくは組織のツリーから対象者を選択して社内Eメールが送信できます。
>
>>・送信するリストを作成しておいて、送信前にブック名を送信相手の名前とかにする。
>  ⇒200名分なら200回ファイル名を送信相手の名前にして、200回個別に送信するということですか?それも大変ですね。雛形のファイルを1個添付して、200名に一斉に送信する方法で何とかならないでしょうか?

私は、BSMTP.DLLをインストールして、会社で同様のことをしています。
今日は、もうこの時間ですので、具体的な案は出せないので、申し訳ありませんが
以下にサンプルがありますので、参考にされてはいかがでしょうか?
http://www.hi-ho.ne.jp/babaq/vbtips.html
http://www.hi-ho.ne.jp/babaq/basp21.html

【52821】Re:年末年始の行動予定表(緊急連絡用)
発言  marai  - 07/12/5(水) 7:35 -

引用なし
パスワード
   ▼かみちゃん さん:
>こんにちは。かみちゃん です。
>
>>>(私の会社は従業員No.や名前で社内Eメールが送信できます。連休の長さから同規模の会社と想定しました。)
>>  ⇒小生の勤務している会社は、名前で検索、もしくは組織のツリーから対象者を選択して社内Eメールが送信できます。
>>
>>>・送信するリストを作成しておいて、送信前にブック名を送信相手の名前とかにする。
>>  ⇒200名分なら200回ファイル名を送信相手の名前にして、200回個別に送信するということですか?それも大変ですね。雛形のファイルを1個添付して、200名に一斉に送信する方法で何とかならないでしょうか?
>
>私は、BSMTP.DLLをインストールして、会社で同様のことをしています。
>今日は、もうこの時間ですので、具体的な案は出せないので、申し訳ありませんが
>以下にサンプルがありますので、参考にされてはいかがでしょうか?
>http://www.hi-ho.ne.jp/babaq/vbtips.html
>http://www.hi-ho.ne.jp/babaq/basp21.html


かみさん
 お世話になっております。
 ご教示いただいたURLにアクセスしたのですが、どれを見ても、どれが小生の求めているものなのか分かりませんでした。申し訳ありませんが、もう少し詳細を教えていただけますでしょうか。お手数かけますが、よろしくお願いします。marai

【52836】Re:年末年始の行動予定表(緊急連絡用)
発言  あゆたろう  - 07/12/5(水) 15:20 -

引用なし
パスワード
   marai さん、かみちゃんさん、こんにちはあゆたろうです。
 私の書き込み後に、marai さんが、
今回は、取り急ぎの仕事でした・・・これを気にVBAを・・・。
みたいな書き込みがあり、他の識者からの書き込みがあり、そのコードを私の勉強の素材にする。
って思ってたのに...。(*^_^*)冗談です。

かみちゃんさんのご紹介の
URLは様式が見慣れてないのか上級者が向けなのかチョット見づらかったですが、参考になりました。
解ったこと・SendMailは慎重にやるべし!
覚えたこと・.RcvMailが出来る環境にすれば、今回掲示するコードの次の段階が出来る。
思ったこと・かみちゃんさんのわたしへのヒント (わたしは自分に良いように考える人ですから(^・^))

本題
ブック名 "緊急連絡先リスト.xls"

所属|氏名|12月29日|12月30日|12月31日|1月1日|1月2日|1月3日|1月4日|1月5日|1月6日|電話
1回目|maraiさん|        
1回目|maraiさん知り合い|
2回目|maraiさん|  
2回目|maraiさん知り合い|
−−−−−− シート名"調査表" −−−−−−

所属|氏名|12月29日|12月30日|12月31日|1月1日|1月2日|1月3日|1月4日|1月5日|1月6日|電話
−−−−−− シート名"送信フォーム" −−−−−−

と、どこかに専用のフォルダーを作成し、(今回は"D:\エクセル\緊急連絡先Web\"としました。)


Sub メール送信()
Dim r  As Long   '65536かな?
Dim tSy As String  '所属名
Dim tNa As Range  'メール送信対象者
Dim Fna As String  '送信ファイル名
Dim i  As Long   '分割用

Windows("緊急連絡先リスト.xls").Activate
Sheets("調査表").Select
'最終行にコメント
r = Worksheets("調査表").Rows.Count
Cells(r, 2).End(xlUp).Rows.Offset(1) = "以上です"

Set tNa = Range("B2")
i = 1
Do
  If tNa.Offset(0, 12).Value <> "送信済み" Then
    Fna = tNa & "殿緊急連絡調査.xls"
    Workbooks.Add
    ActiveWorkbook.SaveAs Filename:="D:\エクセル\緊急連絡先Web\" & Fna
    Windows("緊急連絡先リスト.xls").Activate
    Sheets("送信ホーム").Select
    Sheets("送信ホーム").Copy Before:=Workbooks(Fna).Sheets(1)
    Workbooks(Fna).Activate
    Sheets(1).Range("B2") = tNa         '名前転記
    Sheets(1).Range("A2") = tNa.Offset(0, -1)  '所属転記
    ActiveWorkbook.SendMail (tNa.Value)
  
    Application.DisplayAlerts = False  '警告メッセージ非表示
    Workbooks(Fna).Save         '上書き保存
    Workbooks(Fna).Close         '閉Zil
    Application.DisplayAlerts = True   '警告メッセージ表示
  
    tNa.Offset(0, 12).Value = "送信済み"
    
    i = i + 1
    
    If i = 3 Then
      MsgBox "一度メールボックス容量確認の為終了"
      Exit Sub
    End If
        
  End If
Set tNa = tNa.Offset(1)
Loop Until tNa.Value = "以上です"
End Sub


を走らせる。
If i = 3 Then の部分は、行けるとこまで増やしてください。
サーバーイジメと個人メールボックスサイズの対策のつもりです。

多分大丈夫かと思いますが、maraiさんと隣の人とかに試しでやってみてください。
でも、ある程度のレベルの人からみたら幼稚なコードだと思います。
ダメだったら誰かからアドバイスがあると思います。きっと

ps.なんか表が上手く貼り付けれませんが…。| で仕切ってください。
『以上です』って名前の人はいないですよね?

【52862】Re:年末年始の行動予定表(緊急連絡用)
発言  marai  - 07/12/7(金) 7:02 -

引用なし
パスワード
   お世話になります。
会社で試してみたのですが、うまくいきません。
OUTLOOKのメール画面が自動的に表示されるのですが、
当社は、別のメールシステムを使用しているので、
OUTLOOKでは最初から各人のメールアドレスを入力する手間がかかります。
同じエクセルシート雛形を全員に配布して、ファイル名を変えずに返信してもらい、
そこから先がマクロでの集計になるようにできないでしょうか?
まったくの素人でお願いばかりで恐縮ですがよろしくお願いします。
marai

▼あゆたろう さん:
>marai さん、かみちゃんさん、こんにちはあゆたろうです。
> 私の書き込み後に、marai さんが、
>今回は、取り急ぎの仕事でした・・・これを気にVBAを・・・。
>みたいな書き込みがあり、他の識者からの書き込みがあり、そのコードを私の勉強の素材にする。
>って思ってたのに...。(*^_^*)冗談です。
>
>かみちゃんさんのご紹介の
>URLは様式が見慣れてないのか上級者が向けなのかチョット見づらかったですが、参考になりました。
>解ったこと・SendMailは慎重にやるべし!
>覚えたこと・.RcvMailが出来る環境にすれば、今回掲示するコードの次の段階が出来る。
>思ったこと・かみちゃんさんのわたしへのヒント (わたしは自分に良いように考える人ですから(^・^))
>
>本題
>ブック名 "緊急連絡先リスト.xls"
>
>所属|氏名|12月29日|12月30日|12月31日|1月1日|1月2日|1月3日|1月4日|1月5日|1月6日|電話
>1回目|maraiさん|        
>1回目|maraiさん知り合い|
>2回目|maraiさん|  
>2回目|maraiさん知り合い|
>−−−−−− シート名"調査表" −−−−−−
>
>所属|氏名|12月29日|12月30日|12月31日|1月1日|1月2日|1月3日|1月4日|1月5日|1月6日|電話
>−−−−−− シート名"送信フォーム" −−−−−−
>
>と、どこかに専用のフォルダーを作成し、(今回は"D:\エクセル\緊急連絡先Web\"としました。)
>
>
>Sub メール送信()
>Dim r  As Long   '65536かな?
>Dim tSy As String  '所属名
>Dim tNa As Range  'メール送信対象者
>Dim Fna As String  '送信ファイル名
>Dim i  As Long   '分割用
>
>Windows("緊急連絡先リスト.xls").Activate
>Sheets("調査表").Select
>'最終行にコメント
>r = Worksheets("調査表").Rows.Count
>Cells(r, 2).End(xlUp).Rows.Offset(1) = "以上です"
>
>Set tNa = Range("B2")
>i = 1
>Do
>  If tNa.Offset(0, 12).Value <> "送信済み" Then
>    Fna = tNa & "殿緊急連絡調査.xls"
>    Workbooks.Add
>    ActiveWorkbook.SaveAs Filename:="D:\エクセル\緊急連絡先Web\" & Fna
>    Windows("緊急連絡先リスト.xls").Activate
>    Sheets("送信ホーム").Select
>    Sheets("送信ホーム").Copy Before:=Workbooks(Fna).Sheets(1)
>    Workbooks(Fna).Activate
>    Sheets(1).Range("B2") = tNa         '名前転記
>    Sheets(1).Range("A2") = tNa.Offset(0, -1)  '所属転記
>    ActiveWorkbook.SendMail (tNa.Value)
>  
>    Application.DisplayAlerts = False  '警告メッセージ非表示
>    Workbooks(Fna).Save         '上書き保存
>    Workbooks(Fna).Close         '閉Zil
>    Application.DisplayAlerts = True   '警告メッセージ表示
>  
>    tNa.Offset(0, 12).Value = "送信済み"
>    
>    i = i + 1
>    
>    If i = 3 Then
>      MsgBox "一度メールボックス容量確認の為終了"
>      Exit Sub
>    End If
>        
>  End If
>Set tNa = tNa.Offset(1)
>Loop Until tNa.Value = "以上です"
>End Sub
>
>
>を走らせる。
>If i = 3 Then の部分は、行けるとこまで増やしてください。
>サーバーイジメと個人メールボックスサイズの対策のつもりです。
>
>多分大丈夫かと思いますが、maraiさんと隣の人とかに試しでやってみてください。
>でも、ある程度のレベルの人からみたら幼稚なコードだと思います。
>ダメだったら誰かからアドバイスがあると思います。きっと
>
>ps.なんか表が上手く貼り付けれませんが…。| で仕切ってください。
>『以上です』って名前の人はいないですよね?

【52869】Re:年末年始の行動予定表(緊急連絡用)
発言  あゆたろう  - 07/12/7(金) 11:57 -

引用なし
パスワード
   ダメだったんですかぁ〜。ざんねん。チョットHELPを見てみました。

電子メールでブックを Excel 形式 (.xls) の添付ファイルとして送信または回覧する
・Excel 2000 および次のいずれかの電子メール システムが必要です。
Outlook、Outlook Express、Microsoft Exchange Client、
または Messaging Application Programming Interface (MAPI) と互換性のある 32 ビットの電子メール システム。
Mapi32.dll が Windows のシステム フォルダに入っていることを確認します。

とありますが、これ以外のメールシステムですか?

それはそれとして、 [552788]でお願いさんからのアドバイス通り、マクロ以前の問題を解決する必要がありそうですね。
第2案 (サーバー上に他の方が自由に使えるフォルダーが作成出来る条件)
・マクロを仕込んだファイル送信(これも出来るかが?)
・そのファイルのマクロを走らせるとそれぞれの名前で、あるフォルダーに保存!
ってなかんじでどうですか?
他の方からのレスが付きません。(私が嫌われているのかなぁ?)
すみませんが、第2案がダメなら私にはどうにもなりません。

【52890】Re:年末年始の行動予定表(緊急連絡用)
発言  marai  - 07/12/7(金) 22:56 -

引用なし
パスワード
   メールシステムは、当社独自?のグループマックスといいます。
>第2案 (サーバー上に他の方が自由に使えるフォルダーが作成出来る条件)
>・マクロを仕込んだファイル送信(これも出来るかが?)
>・そのファイルのマクロを走らせるとそれぞれの名前で、あるフォルダーに保存!
>ってなかんじでどうですか?
 ⇒第2案ならいけそうな感じですね。詳細プログラムを教えてください。


▼あゆたろう さん:
>ダメだったんですかぁ〜。ざんねん。チョットHELPを見てみました。
>
>電子メールでブックを Excel 形式 (.xls) の添付ファイルとして送信または回覧する
>・Excel 2000 および次のいずれかの電子メール システムが必要です。
>Outlook、Outlook Express、Microsoft Exchange Client、
>または Messaging Application Programming Interface (MAPI) と互換性のある 32 ビットの電子メール システム。
>Mapi32.dll が Windows のシステム フォルダに入っていることを確認します。
>
>とありますが、これ以外のメールシステムですか?
>
>それはそれとして、 [552788]でお願いさんからのアドバイス通り、マクロ以前の問題を解決する必要がありそうですね。
>第2案 (サーバー上に他の方が自由に使えるフォルダーが作成出来る条件)
>・マクロを仕込んだファイル送信(これも出来るかが?)
>・そのファイルのマクロを走らせるとそれぞれの名前で、あるフォルダーに保存!
>ってなかんじでどうですか?
>他の方からのレスが付きません。(私が嫌われているのかなぁ?)
>すみませんが、第2案がダメなら私にはどうにもなりません。

【52892】Re:年末年始の行動予定表(緊急連絡用)
発言  かみちゃん  - 07/12/7(金) 23:08 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>メールシステムは、当社独自?のグループマックスといいます。

そういう情報は、最初からきちんと出しましょう。
おそらくこのことだと思いますが・・・
http://www.hitachi.co.jp/design/product/g-max_1.html

なお、私は、上記製品を初めて聞きましたので、まったくわかりませんが、
SMTPサーバーで動いているのでないのならば、私が提案したBSMTP.DLLを使う
方法はできません。

【52893】Re:年末年始の行動予定表(緊急連絡用)
発言  marai  - 07/12/8(土) 4:26 -

引用なし
パスワード
   ▼かみちゃん さん:
おはようございます。maraiです。
申し訳ありません。確かにSMTPサーバーです。
BSMTP.DLLを使う方法ができないとなると、何か他の手段はありませんか。
何度も申し上げていますが、小生まったくの素人なので、マクロ文の
1から10まで教えていただかないと正直言って何もできません。
それなら、「勉強しろ」と言われると思いますが、以前かみちゃんに
年齢別部署毎リストの作成マクロを教えてもらい、大変助かりました。
マクロを実行して自分の思い描いていたリストが出来上がった時は
本当に感動しました。こんな便利なものは使わない手はないと思いました。
これから勉強していきたいと思っていますが、日常業務に追われてなかなか
そこまではいっていません。おんぶにだっこで申し訳ありませんが、
こうやればできるという段階まで、詳細に教えていただければ幸いです。


>こんにちは。かみちゃん です。
>
>>メールシステムは、当社独自?のグループマックスといいます。
>
>そういう情報は、最初からきちんと出しましょう。
>おそらくこのことだと思いますが・・・
>http://www.hitachi.co.jp/design/product/g-max_1.html
>
>なお、私は、上記製品を初めて聞きましたので、まったくわかりませんが、
>SMTPサーバーで動いているのでないのならば、私が提案したBSMTP.DLLを使う
>方法はできません。

【52898】Re:年末年始の行動予定表(緊急連絡用)
発言  かみちゃん E-MAIL  - 07/12/8(土) 13:56 -

引用なし
パスワード
    こんにちは。かみちゃん です。

>申し訳ありません。確かにSMTPサーバーです。
>BSMTP.DLLを使う方法ができないとなると、何か他の手段はありませんか。

SMTPサーバーアドレスがわかるのであれば、BSMTP.DLLを使うことはできると思います。

>何度も申し上げていますが、小生まったくの素人なので、マクロ文の
>1から10まで教えていただかないと正直言って何もできません。

それであれば、きついようですが、掲示板だけでのやりとりだったら、
あきらめたほうがいいかもしれません。
でも、どうしてもチャレンジしたいならば、
http://homepage1.nifty.com/gak/MSTips/multimail.htm
にサンプルファイルがあるのですが、ダウンロードはできましたか?
試してみましたか?
BSMTP.DLLのインストールも必要なのですが、どこまで試してみたかが、よくわかりません。

> 同じエクセルシート雛形を全員に配布して、ファイル名を変えずに返信してもらい、
> そこから先がマクロでの集計になるようにできないでしょうか?

もちろんできます。
BSMTP.DLLを使えば、添付ファイル付きの送信も受信もできるのですが・・・

>こうやればできるという段階まで、詳細に教えていただければ幸いです。

掲示板だけでサポートは、とても難しいです。
メールでやりとりは、個人的には構いませんが、掲示板上では好ましくないこと
ですし、また、あゆたろうさん初め、このスレッドで同様のことをしようとして
いる方への情報共有ができなくなりますので、悩むところです。

※あと、ここの掲示板で投稿される場合は、引用は極力最小限にしていただけない
ですか?
 スレッド全体を見れば、流れはわかりますので・・・

【52903】Re:年末年始の行動予定表(緊急連絡用)
お礼  marai  - 07/12/8(土) 21:21 -

引用なし
パスワード
   アドバイスありがとうございます。
頼ってばかりではダメだと思うので、アドバイスを参考にトライしてみます。

【52911】Re:年末年始の行動予定表(緊急連絡用)
発言  かみちゃん E-MAIL  - 07/12/9(日) 11:48 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>頼ってばかりではダメだと思うので、アドバイスを参考にトライしてみます。

トライするというだけで、解決したわけではなさそうなので、考え方をまず
書きたいと思います。

1.各自記入用、まとめ用、マクロ用の各ブックを作ります。
2.各自記入用は、以下のようなブックを作ります。
   A   B   C   D ・・・  L
 1 所属 氏名 12/29 12/31・・・電話番
 2 総務 山本
 3 総務 加藤
3.まとめ用は、記入用と同様のものを用意します。
   A   B   C   D ・・・  L
 1 所属 氏名 12/29 12/30・・・ 電話番
 2 総務 山本
 3 総務 加藤
4.まとめた結果は、以下のようになります。
   A   B   C   D ・・・  L
 1 所属 氏名 12/29 12/30・・・ 電話番
 2 総務 山本  ○  ○
 3 総務 加藤  ○  ○
5.3.のブックを日付別の部分は、空欄にして、送信
 ※この送信を、一斉送信したいのか?
  一通のメールで同報メールではいけないのか?
6.各自記入後は、特定のアドレスに個別に返信が来る。
 ※この受信を自動的に処理したいのか?
  その際、ブックの名前は変えないという運用はできるか?
  変えられることは十分想定できるので、Excelブックが添付されている場合は、
  一旦開いて、特定のシートの特定のセルの値で処理対象のブックかどうか判
  断することができるか。
  ★メール受信は手動でして、特定のフォルダに処理対象とするブックを入れ
   て、まとめ処理だけをマクロで処理することはできないか?

よく考えたら、頻繁に同様の処理をするなら別ですが、★のような運用でも十分
耐えられるのではないかと気づきました。
なお、★のような処理をした場合でもひとつ問題があって、複数のブックで同じ
記入、たとえば、1ブックで複数人分返ってきた場合とか、同姓同名がいたら、
重複という事象が起きます。

年末年始の休暇予定表ですから、もう時間がないのかもしれませんが・・・
★の運用のほうが、簡単に済むかもしれません。
その際、重複があったらどうするのかという点を教えていただければ、
案はあります。

【52912】Re:年末年始の行動予定表(緊急連絡用)
発言  marai  - 07/12/9(日) 15:19 -

引用なし
パスワード
   ▼かみちゃん さん:
>トライするというだけで、解決したわけではなさそうなので、考え方をまず
>書きたいと思います。
⇒ご親切にありがとうございます。
 
>5.3.のブックを日付別の部分は、空欄にして、送信
> ※この送信を、一斉送信したいのか?
>  一通のメールで同報メールではいけないのか?
⇒まず、VBAを使用していなかった前回までのやり方をご説明します。
 1.以下のブック(所属も氏名も空欄)を一通のメールで全員に一斉に送信して
  いました。一人分しか入力できない様式です。
   A   B   C   D ・・・  L
 1 所属 氏名 12/29 12/30・・・ 電話番
 2
 2. 受信担当者を決めておき、1.の入力済のブックを各人がその受信担当者に
  返信してきます。
 3.受信担当者は、メールが各人から送付されてきたら、添付されたブックを
  保存はせずにその都度開き、返信されてきた順に1.と同様の様式(まとめ用)
  に下へ下へとコピー&ペーストしていきます。
 4.全員分揃ったら、氏名の50音順、あるいは所属別にソートして終了です。
 
>6.各自記入後は、特定のアドレスに個別に返信が来る。
> ※この受信を自動的に処理したいのか?
>  その際、ブックの名前は変えないという運用はできるか?
>  変えられることは十分想定できるので、Excelブックが添付されている場合、
>  一旦開いて、特定のシートの特定のセルの値で処理対象のブックかどうか判
>  断することができるか。
>  ★メール受信は手動でして、特定のフォルダに処理対象とするブックを入れ
>   て、まとめ処理だけをマクロで処理することはできないか?
>よく考えたら、頻繁に同様の処理をするなら別ですが、★のような運用でも十分
>耐えられるのではないかと気づきました。
⇒私も★の処理を希望しております。

>なお、★のような処理をした場合でもひとつ問題があって、複数のブックで同じ
>記入、たとえば、1ブックで複数人分返ってきた場合とか、同姓同名がいたら、
>重複という事象が起きます。
>年末年始の休暇予定表ですから、もう時間がないのかもしれませんが・・・
>★の運用のほうが、簡単に済むかもしれません。
>その際、重複があったらどうするのかという点を教えていただければ、
>案はあります。
⇒上記で述べたように、1人づつ返信してくるので複数人分で返信してくることは
 ありません。同姓同名もたまたまおりません。
 
以上でお分かりになるでしょうか。またまた甘えさせていただいてよろしいでしょうか。よろしくおねがいします。

【52913】Re:年末年始の行動予定表(緊急連絡用)
発言  かみちゃん E-MAIL  - 07/12/9(日) 15:36 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>>  ★メール受信は手動でして、特定のフォルダに処理対象とするブックを入れ
>>   て、まとめ処理だけをマクロで処理することはできないか?
>>よく考えたら、頻繁に同様の処理をするなら別ですが、★のような運用でも十分
>>耐えられるのではないかと気づきました。
>⇒私も★の処理を希望しております。

それであれば、方針転換です。
今までのメール送受信自動化の私の提案は、すべて、忘れてください。

> 3.受信担当者は、メールが各人から送付されてきたら、添付されたブックを
>  保存はせずに

特定のフォルダに保存していくことはできますか?
それができるならば、マクロ実行時に特定のフォルダに入っているブックを順番に開いて、コピー貼り付けをし、閉じるという処理をマクロにするということはでき
ますが、いかがでしょうか?

それでよければ、特定のブックを開いて、コピーして貼り付けして、閉じるという
手動による操作はできますよね?

できるのであれば、「マクロの記録」で記録してみましょう。

本当は、急いでいる(年末年始の行動予定表とりまとめをする)ので、プログラム
をご希望なのでしょうけど、掲示板で作成依頼に応じるのは、好ましくないので、
ご自身でできるところは、してみてほしいという願いです。

【52916】Re:年末年始の行動予定表(緊急連絡用)
発言  りん E-MAIL  - 07/12/9(日) 16:12 -

引用なし
パスワード
   こんにちわ。

>>>  ★メール受信は手動でして、特定のフォルダに処理対象とするブックを入れ
>>>   て、まとめ処理だけをマクロで処理することはできないか?
>> 3.受信担当者は、メールが各人から送付されてきたら、添付されたブックを
>>  保存はせずに
>特定のフォルダに保存していくことはできますか?
>それができるならば、マクロ実行時に特定のフォルダに入っているブックを順番に開いて、コピー貼り付けをし、閉じるという処理をマクロにするということはでき
>ますが、いかがでしょうか?

同じフォルダに入れているなら、このツリーの処理の応用で出来そうですよね。
htt p://www.vbalab.net/vbaqa/c-board.cgi?cmd=ntr;tree=48269;id=excel

【52921】Re:年末年始の行動予定表(緊急連絡用)
発言  marai  - 07/12/9(日) 17:19 -

引用なし
パスワード
   >6.各自記入後は、特定のアドレスに個別に返信が来る。
> ※この受信を自動的に処理したいのか?
>  その際、ブックの名前は変えないという運用はできるか?
>  変えられることは十分想定できるので、Excelブックが添付されている場合、
>  一旦開いて、特定のシートの特定のセルの値で処理対象のブックかどうか判
>  断することができるか。
>  ★メール受信は手動でして、特定のフォルダに処理対象とするブックを入れ
>   て、まとめ処理だけをマクロで処理することはできないか?
>よく考えたら、頻繁に同様の処理をするなら別ですが、★のような運用でも十分
>耐えられるのではないかと気づきました。
⇒※のやり方よりも、★マークの処理の方がお勧めだと思い★マークを希望しました。
 メールの受信段階で自動的に処理できるのであれば、メール受信自動化による予定表作成を希望します。
また少し質問させていただきますが、
※のやり方でやれば、予定記入後のブックを各人がメールに添付して受信担当者にメール送信してきたものは、受信担当者がその該当メールをダブルクリックなりで開かない限り添付のブックを開くことができないはずですが、メールのタイトルで判断して自動的にメールを開き、更に添付ブックまでも開いて自動的に、コピー&貼り付けをできるということですか。

特定のフォルダに保存していくことはできますか?
⇒できます。


なんだか、小生の読解力不足で、ややこしいやり取りになってしまい
申し訳ありません。


本当は、急いでいる(年末年始の行動予定表とりまとめをする)ので、プログラム
をご希望なのでしょうけど、
⇒ずうずうしいようですが、確かにそのとおりです。
 しかし、これ以上ご迷惑を掛けられないので、今回は自分でトライしてみて
駄目なら、あきらめて、従来通り手作業でやろうと思います。
普段から勉強もしないで、いざという時にこの調子ではダメだと痛感しました。

【52924】Re:年末年始の行動予定表(緊急連絡用)
発言  かみちゃん E-MAIL  - 07/12/9(日) 17:37 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>⇒※のやり方よりも、★マークの処理の方がお勧めだと思い★マークを希望しました。
> メールの受信段階で自動的に処理できるのであれば、メール受信自動化による予定表作成を希望します。

それは、わかっています。
でも、1〜10までを掲示板だけで、年末年始の前までに、お教えするのは、無理です。
そのため、代替案として、特定のフォルダに手動で保存していただいた後に、
マクロで集計する方法を提案させていただきました。
そのマクロは、りんさんが紹介されたスレッドが参考になると思います。

>※のやり方でやれば、予定記入後のブックを各人がメールに添付して受信担当者にメール送信してきたものは、受信担当者がその該当メールをダブルクリックなりで開かない限り添付のブックを開くことができないはずですが、メールのタイトルで判断して自動的にメールを開き、更に添付ブックまでも開いて自動的に、コピー&貼り付けをできるということですか。

はい。そのとおりです。
実際、私、会社でそのようなことをしています。

>本当は、急いでいる(年末年始の行動予定表とりまとめをする)ので、プログラム
>をご希望なのでしょうけど、
>⇒ずうずうしいようですが、確かにそのとおりです。

そうでしょうね。それは十分理解しているつもりです。
だからといって、掲示板で全部わかるように説明するのは、とてもできそうにないです。

>駄目なら、あきらめて、従来通り手作業でやろうと思います。

手作業でなくても、★の方法であれば、説明できますけど、まずは、りんさん
が紹介されたスレッドを参考にされてはいかがでしょうか?

【52925】Re:年末年始の行動予定表(緊急連絡用)
発言  marai  - 07/12/9(日) 18:02 -

引用なし
パスワード
   わかりました。
まずは、りんさんが紹介されたスレッドを参考にトライしてみます。
大変ありがとうございました。marai

【52929】Re:年末年始の行動予定表(緊急連絡用)
発言  かみちゃん E-MAIL  - 07/12/9(日) 19:05 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>まずは、りんさんが紹介されたスレッドを参考にトライしてみます。

りんさんご紹介のスレッドのコードを参考に、若干修正した以下のようなコードを
とりまとめ用のブックに記述します。

各自から送付されてきたブックを保存するフォルダと同じフォルダにとりまとめ
用のブックをいれて、以下のマクロを実行すると、とりまとめできます。

Sub Sample2()
  Dim f As String
  Dim s As String
  Dim i As Long
  Dim w As Workbook
 
  Application.ScreenUpdating = False
  
  With ThisWorkbook
   f = .Path & "\*.xls"
   i = 2
   s = Dir(f)
   Do While s <> ""
    If s <> .Name Then
     Application.EnableEvents = False
     Set w = Workbooks.Open(.Path & "\" & s)
     w.Sheets(1).Range("A2:L2").Copy .Sheets(1).Cells(i, 1)
     w.Close False
     Application.EnableEvents = True
     i = i + 1
    End If
    s = Dir
   Loop
  End With
  Set w = Nothing
  
  Application.ScreenUpdating = True
  MsgBox "終了しました"
End Sub

今年は、急いで処理しなければいけないこともあり、こんな感じでいかがでしょうか?
来年度も必要であれば、メール自動送受信も考えたほうがいいかもしれませんね。

【52933】Re:年末年始の行動予定表(緊急連絡用)
お礼  marai  - 07/12/9(日) 20:17 -

引用なし
パスワード
   ここまでご親切にご教示いただけるとは思いもしませんでした。
結局、いつも、かみちゃんには助けてもらってばかりで、本当にありがとうございます。りんさんも、どうもありがとうございます。
これが今年最後の投稿になるかどうか分かりませんが、みなさんにとって、来年も良い年でありますように! maraiより

【52978】Re:年末年始の行動予定表(緊急連絡用)
お礼  marai  - 07/12/10(月) 19:11 -

引用なし
パスワード
   早速本日会社でやってみて成功しました。
本当に関係各位に感謝します。
ありがとうございました。marai

【53031】Re:年末年始の行動予定表(緊急連絡用)
発言  あゆたろう  - 07/12/12(水) 16:54 -

引用なし
パスワード
   marai さんへ

ずいぶん音沙汰無くてすみません。
いまさら書いてもしょうがないかも知れませんが。

前回までのシートイメージで
・セルB4〜人数分の氏名をリスト化しておく。
・下記マクロが動くボタン等をつける
・全員に送信
・マクロで各個人名のファイルを保存 今回も"D:\エクセル\緊急連絡先Web\"で設定

Sub 氏名で保存()

Dim TargetStr  As String    '氏名の確認用
Dim TargetStrL  As String   '氏名検索用
Dim LastRow   As Integer   'シート最終行
Dim TargetArea As Range    '氏名リスト
Dim FoundCell  As Range    '氏名確認用
Dim FoundCellL  As Range    '氏名検索用
Dim R      As Integer
Dim N      As Integer
Dim 名前1    As Integer   'メッセージ戻り値1
Dim 名前2    As Integer   'メッセージ戻り値2

TargetStr = Range("B2")
LastRow = Cells(ActiveSheet.Rows.Count, 2).End(xlUp).Row
Set TargetArea = Range("B4:B" & LastRow)
Set FoundCell = TargetArea.Find(what:=TargetStr, LookIn:=xlValues, _
  LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
  MatchCase:=False)    '氏名リストから氏名を検索しての結果

If FoundCell Is Nothing Then  '氏名リストに無かった場合
  TargetStrL = Left(Range("B2"), 1) & "*"   '氏名の最初の一文字
  Set FoundCellL = TargetArea.Find(what:=TargetStrL, LookIn:=xlValues, _
  LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
  MatchCase:=False)    '氏名リストから氏名の最初の一文字検索しての結果
  R = FoundCellL.Row   '見つかったセルのRow
  On Error Resume Next
  名前1 = MsgBox(FoundCellL.Value & "さんですか?", 3, "名前検索")
  Select Case 名前1
  Case 2                 'キャンセルの時
    Exit Sub
  Case 6
    Range("B2") = FoundCellL.Value   'はい。なら氏名書き込み
  Case 7                 'いいえ。の時
  N = 1
  Do   'はい。まで次々検索
    Set FoundCellL = TargetArea.FindNext(After:=FoundCellL)
    If FoundCellL.Row = R Then Exit Do
      N = N + 1
      名前2 = MsgBox(FoundCellL.Value & "さんですか?", 3, "名前検索")
      Select Case 名前2
      Case 2
        Exit Sub
      Case 6
        Range("B2") = FoundCellL.Value
        Exit Do
      Case 7
      End Select
  Loop
  End Select
  
End If
Set FoundCell = Nothing
Set TargetArea = Nothing
Range("A4:B" & LastRow).Delete
ActiveWorkbook.SaveAs Filename:="D:\エクセル\緊急連絡先Web\" & Range("B2") '保存
MsgBox "完了"
End Sub

で、
編集用ブックに

Sub 編集()
Dim TargetStr  As String    '氏名の確認用
Dim LastRow   As Integer   'シート最終行
Dim folName   As String
Dim henSyuuB  As String
Dim simeiArea  As Range
Dim koko    As Range

henSyuuB = ThisWorkbook.Name    '編集用ブックの名前
folName = "D:\エクセル\緊急連絡先Web"
LastRow = Cells(ActiveSheet.Rows.Count, 2).End(xlUp).Row
Set simeiArea = Range(Cells(2, 2), Cells(LastRow, 2))
For i = 2 To LastRow
  TargetStr = Range("B" & i)
  If Range("B" & i).Interior.ColorIndex <> 6 Then   'もし黄色じゃなかったら
    Set fs = Application.FileSearch
    With fs
    .LookIn = folName
    .Filename = TargetStr & ".xls"
    If .Execute() > 0 Then
      Workbooks.Open Filename:=folName & "\" & TargetStr & ".xls"
      Windows(TargetStr & ".xls").Activate
      Range("C2:M2").Copy
      Windows(henSyuuB).Activate
      Set koko = simeiArea.Find(what:=TargetStr, LookIn:=xlValues, _
      LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
      MatchCase:=False)
      koko.Offset(0, 1).Select
      ActiveSheet.Paste
      koko.Select
      With Selection.Interior   '氏名を黄色で塗る
        .ColorIndex = 6
      End With
      Windows(TargetStr & ".xls").Close
    Else
    End If
    End With
  End If
Next
End Sub

上記マクロで編集

と考えました。私のやりたいことが伝わったでしょうか?

エラー処理等甘い点があるかもしれませんが、処理が終わった人のセルは黄色に
塗潰されるようにしました。
解決されているのはわかっていますが、自分の為にアップしました。
(前回のレスが、中途半端な気持ちでの書き込みと思われたくなかったため)
コードに不備があれば教えて下さい。

PS.インフルエンザ以外にも風邪がはやっています。私はのどの痛みと高熱で3日寝込みました。
皆さんは、健康に気を付けてください。
 かみちゃんさんの BSMTP.DLL はとても興味がわきました。今度試してみます。
質問できる位理解したとき、書き込むかも知れませんがその時はよろしくお願いします。

【53050】Re:年末年始の行動予定表(緊急連絡用)
お礼  marai  - 07/12/12(水) 21:02 -

引用なし
パスワード
   かみちゃんのアドバイスで解決はしていますが、あゆたろうさんのやり方も参考に次回試してみたいと思います。わざわざありがとうございます。お体大切に!

5023 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free