投稿日	： 2002/11/21(Thu) 13:50
投稿者	： スナフキン
ＵＲＬ	：
タイトル	： Re^2: どなたか教えて下さい！

早速のReplayありがとうごさいます☆
こんなに早くReplayして頂けてとても感謝致しております☆

> なお、最近のExcelであれば、ワークブックをメール送信するような機能が
> Excel自体に実装されているので、VBではなく、Excel VBAで作成するというのも
> 一つの方法です。

　私のPCはWindoew98,Excle2000がインストールされています。
　私は、ExcelVBAである程度はマクロを組む事が出来ます。
　上記にも書かれて有りますExcelVBAでメール送信するコードを
　ヘルプで調べました。

　ActiveWorkbook.SendMail Recipients:="宛先", Subject:="件名"

　上記ですと、OutlookExpressが起動され添付ファイル付きで、宛先、件名を
　指定してメール送信が出来る様です。

　ですがこのコードですと、本文は指定できません。。。
　出来れば、本文も指定してメールを送りたいのです。。。
　調べてみたのですが、どうしても解らずにいます。
　ですのでVBで何とかならないものかと投稿致しました。

　OutLook2000版のメール送信マクロは作成出来たのですが。。。(下記に有ります。)

　私はある企業に勤務していますが、どうしてもOutLookExpres
　を使用してとの事なので。。。

　どうかお力をお借り出来ないでしょうか！？　宜しくお願い致します。(ペコリ)

Public Sub Mail_transmission() 'メール送信(OUTLOOK2000)
  
'*** OUTLOOKを使用してMailを送る ***

Dim OLApp As Object
Dim Data As MailItem

Dim product_name
Dim Mail_Address

product_name = "AAAAA"
Mail_Address = "BBBBB"

'*** OUTLOOKのオブジェクトを作成後、Mailを送信する ***
Set OLApp = CreateObject("outlook.Application")
Set Data = OLApp.CreateItem(olMailItem)
Data.Display

'*** Mailの宛先・題名・本文・添付ファイルを設定する ***
Data.To = Mail_Address
Data.Subject = "新規作成をお願い致します。" & product_name
Data.Body = "いつも大変お世話になっております。" + Chr(13) + "宜しくお願い致します。"
Data.Attachments.Add ThisWorkbook.Path + "\" + ThisWorkbook.Name
Data.CC = Mail_Address

'*** Mail送信 ***
Data.Send

'*** Reste ***
Set OLApp = Nothing
Set Data = Nothing

End Sub

★ - どなたか教えて下さい！ - スナフキン 11/21-11:56No.1474
• Re: どなたか教えて下さい！ - 魔界の仮面弁士 11/21-12:50 No.1475
  • Re^2: どなたか教えて下さい！ - スナフキン 11/21-13:50 No.1477
    • 添付ファイルの送信方法 - 魔界の仮面弁士 11/21-14:13 No.1478
      • Re: 添付ファイルの送信方法 - スナフキン 11/22-09:24 No.1490