プロが教える店舗&オフィスのセキュリティ対策術

こんにちは。
EXCEL VBAで
自分のファイルをある宛先にメールで送信したい場合は、
どのようにしたらできますか?
どなたか、わかる方・・・教えてください。
よろしくお願いします。

A 回答 (2件)

参考のスレのVBAを必要な部分だけにすると以下になります。


準備
VBエディターのツール 参照設定で
Microsoft Outlook 10.0 Object Library にチェックをいれます。
B3セルに 宛先 メールアドレス
F3セルに CC メールアドレス
C3セルに 件名
D3セルに 本文
G3セルに 添付ファイルのパスとファイル名
入れておいた場合です。

Sub ボタン1_Click()
Dim myOLApp As Object
Dim myDATA As MailItem
Set myOLApp = CreateObject("Outlook.Application")
Set myDATA = myOLApp.CreateItem(olMailItem)
myDATA.To = Range("B3").Value
myDATA.CC = Range("F3").Value
myDATA.Subject = Range("C3").Value
myDATA.Body = Range("D3").Value
myDATA.Attachments.Add Range("G3").Value
myDATA.Send
Set myDATA = Nothing
Set myOLApp = Nothing
End Sub

コピペして使ってみてください。コマンドの意味は先紹介のスレに
説明して有ります。
    • good
    • 3
この回答へのお礼

ご回答ありがとうございます。
さっそく、やってみます。

お礼日時:2008/08/26 16:06

過去スレですが、参考になると思います。


http://oshiete1.goo.ne.jp/qa4218185.html
    • good
    • 3
この回答へのお礼

ご回答ありがとうございます。
さっそく、拝見しましたが・・・
VBAでメール送信を試みようとすると、ソースコードを記述しようとすると
難しいのですね。
私にとって、高度で解読できないのですが・・・
もう少し簡単な方法はございませんか?

お礼日時:2008/08/21 10:01

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!