CSVで保存してあるメールアドレス先に一括でメールを送る方法

エクセル小僧

unread,

Sep 2, 2007, 1:52:00 AM9/2/07

to

ソフトに入力登録したメールアドレスをCSVで保存してあります。
数多いメールアドレスにいっぺんにメールを送るにはどうしたらよいのでしょうか？

かぶと

unread,

Sep 2, 2007, 11:00:02 PM9/2/07

to

使用されているメールソフトがわかりませんが
メールソフトのアドレス帳に登録し直されたらどうでしょう。

Microsoft Outlookでしたら配信先リストに
Outlook Excpressでしたらグループに
そのほかのメールソフトについてはわかりません。

その登録されている配信先リスト・グループなどを送信方法によってTO欄、CC欄、BCC欄で指定して送信されれば良いかと思います。

エクセル小僧

unread,

Sep 5, 2007, 5:14:03 AM9/5/07

to

かぶとさん、ありがとうございました。

返事が遅くなってすみませんでした。m(__)m
僕の言葉が足りなくて申し訳なかったのですが、
CSVに落とした羅列したメールアドレスを
そのグループに一気に登録する仕方がわからないんです。

もしわかったらまた教えてください。
ありがとうございました。

Miyahn

unread,

Sep 10, 2007, 6:20:03 AM9/10/07

to

# 投稿前にニュースグループのルールとマナーを確認しましょう。
# 投稿／閲覧には Web ベースでないニュースリーダの利用を推奨します。

"エクセル小僧" さんは、2007年9月2日 14:52 の
「CSVで保存してあるメールアドレス先に一括でメールを送る方法」で、
こう書かれました。
> ソフトに入力登録したメールアドレスをCSVで保存してあります。
> 数多いメールアドレスにいっぺんにメールを送るにはどうしたらよいのでしょうか？

Excel に直接関係した話題とは思えませんが？

下記の HTA を実行すれば、CSV ファイルの右クリックメニューに
「AddressCopy(A)」メニュー項目が追加されます。
同メニュー項目を選択すると、ファイル内のメールアドレスと解釈できる
文字列がカンマ区切りでクリップボードにコピーされ、既定のメールクライ
アントが起動しますから、cc 又は bcc 欄を選択してペーストしましょう。

# 正規表現のパターンは手抜きしていますから、不正なアドレスが含まれる
# 場合があります。

<head><meta http-equiv=Content-Type content="text/html; charset=shift_jis">
<hta:application ID="This" windowstate="minimize" singleinstance="yes">
<script language=vbs>
Option Explicit
Dim Arg, pPath
pPath = unescape(document.url)
Arg = Mid(This.commandLine, Len(pPath) + 4)
If Arg = "" Then Reg_UnReg() Else AddressCopy()
window.close
'
Sub AddressCopy()
Dim iBuf, RegEx, cRes, aRes, oBuf
If LCase(Right(Arg, 4)) <> ".csv" Then Exit Sub
With CreateObject("Scripting.FileSystemObject")
With .OpenTextFile(Arg): iBuf = .ReadAll: .Close: End With
End With
With New RegExp
.Global = True: .IgnoreCase = True: .Pattern = "[\w\-\.]+@[\w\-\.]+"
Set cRes = .Execute(iBuf): If cRes.Count = 0 Then Exit Sub
For Each aRes In cRes: oBuf = oBuf & "," & aRes.Value: Next
End With
document.ParentWindow.ClipBoardData.SetData "Text", Mid(oBuf, 2)
With CreateObject("WScript.Shell")
.SendKeys "%{ESC}" ' おまじない
.PopUp "E-Mail Address list have been copied to the Clipboard", 2
.Run "mailto:"
' 上記のコロンの後に自分のメールアドレスを入れておく方が良いでしょう。
End With
End Sub
'
Sub Reg_UnReg
Const TKey = "HKCR\Excel.CSV\shell\", Menu = "AddressCopy(&A)"
Dim EN
With CreateObject("WScript.Shell")
.SendKeys "%{ESC}"
On Error Resume Next
.RegRead TKey & Menu & "\"
EN = Err.Number
On Error GoTo 0
If EN <> 0 Then
.RegWrite Tkey & Menu & "\", Menu
.RegWrite Tkey & Menu & "\command\", "mshta """ & pPath & """ %L"
.PopUp "Registered to the context menu.", 1
Else
.RegDelete Tkey & Menu & "\command\"
.RegDelete Tkey & Menu & "\"
.PopUp "Deleted from the context menu.", 1
End If
End With
End Sub
</script></head></html>

--
Miyahn
Microsoft MVP for Microsoft Office - Excel(Jan 2004 - Dec 2007)
Miyahn's Archive: http://homepage2.nifty.com/miyahn/