Excel VBA質問箱 IV

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

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


29181 / 76732 ←次へ | 前へ→

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

0 hits

【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 発言

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