|
▽ 2003/6/5 (木) 16:48:27 ▽ 山田 |
|
p0508-ip01kanazawa.ishikawa.ocn.ne.jp / Mozilla/4.0 (compatible; MSIE 5.0; Windows 98; DigExt) |
| すいません。windows98,Excel2000を使用しています。
以前、EXCELでVBAを利用して、OUTLOOKでメールを送信していたのですが
同様にBeckyで送信したいのです。そのVBAのコーディングの方法が
解りません。
ちなみに以前使用していたVBAの内容は
Private Sub CommandButton1_Click()
Dim mystr As String
Dim myOLApp As New Outlook.Application
Dim myOLItem As Outlook.MailItem
Dim mySubject As String
ActiveWorkbook.Save
Set myOLItem = myOLApp.CreateItem(olMailItem)
Set myAttachments = myOLItem.Attachments
pName = ActiveWorkbook.FullName
myAttachments.Add pName, olByValue, 1, ""
mySubject = "シート"
With myOLItem
.Recipients.Add (ActiveSheet.Range("J1"))
.Subject = mySubject
.Body = ""
End With
myOLItem.Send
End Sub
です |
|
|