Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

58466 / 76738

←次へ　｜　前へ→


	【23000】Re:ハイパーリンクを利用し､添付ファイルを挿入する方法2

G-Luck - 05/3/9(水) 17:41 -


	引用なし

	パスワード

▼みらいさん：

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

1 hits

▼

【22952】ハイパーリンクを利用し､添付ファイルを挿入する方法2 みらい 05/3/8(火) 16:35