|
▼みらい さん:
Outlook 2000であるなら、OutLookのVBAを利用するような形で、
Excelの標準モジュールに書いています。
Miscosoft Outlook 11.0 Object Library
みたいなのを参照設定してください。
実験はしていませんので、あしからず。
'以下コード
Sub myOutLook()
Dim myOl As Outlook.Application
Dim myMail As MailItem
On Error Resume Next
Set myOl = GetObject(, "OutLook.Application")
If myOl Is Nothing Then
Set myOl = CreateObject("OutLook.Application")
End If
On Error GoTo 0
If myOl Is Nothing Then Exit Sub
myOl.GetNamespace("MAPI").GetDefaultFolder(olFolderOutbox).Display
Set myMail = myOl.CreateItem(olMailItem)
With myMail
.To = "宛先"
.CC = "コピー"
.BCC = "カーボンコピー"
.Subject = "表題"
.Body = "本文"
.Attachments.Add "C:\test.doc"
.Display
End With
SendKeys "%s~", True
End Sub
|
|