|
毎日決まった場所にセーブしてあるファイルを決まった人にBCCで送りたいと思います。なのでOUTLOOKのVBAで以下のような記述をしてみました。
Sub BCC_SEND()
Dim APP, MAIL As Object
Dim MOJI As String
Set APP = CreateObject("Outlook.Application")
Set MAIL = APP.CreateItem(0)
MOJI = "こんにちは。" & vbCrLf & "隣の柿はよく客食う柿だ" & vbCrLf & "赤巻紙青巻紙黄巻紙"
MAIL.BCC = "yutaka.yamazaki@citigroup.com"
MAIL.Subject = "*TEST*TEST*TEST*TEST"
MAIL.Body = MOJI
MAIL.Attachments.Add "G:\FC-WORK\Maker\1-GAAP\2-PSTCM\Review\Rate_Check\0903\0917_PBG.XLS"
MAIL.Send
End Sub
確かにメール送信されるのですがこれは宛先が1人だから簡単なのですが
100人とか宛先がいた場合、別のファイルを参照してメールを送るようにしたいです。正直なところOUTLOOKには不慣れなのでできたらExcelファイルからOUTLOOKを起動してメールを送るようにしたいのですが可能でしょうか?
|
|