Excel VBA質問箱 IV

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

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


58460 / 76732 ←次へ | 前へ→

【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

3 hits

【22952】ハイパーリンクを利用し、添付ファイルを挿入する方法2 みらい 05/3/8(火) 16:35 質問
【22957】Re:ハイパーリンクを利用し、添付ファイルを... かみちゃん 05/3/8(火) 20:39 発言
【22969】Re:ハイパーリンクを利用し、添付ファイルを... みらい 05/3/9(水) 9:05 発言
【22983】Re:ハイパーリンクを利用し、添付ファイルを... かみちゃん 05/3/9(水) 12:56 発言
【22992】Re:ハイパーリンクを利用し、添付ファイルを... みらい 05/3/9(水) 16:36 発言
【23000】Re:ハイパーリンクを利用し、添付ファイルを... G-Luck 05/3/9(水) 17:41 発言
【23130】Re:ハイパーリンクを利用し、添付ファイルを... みらい 05/3/14(月) 15:26 発言
【23135】Re:ハイパーリンクを利用し、添付ファイルを... G-Luck 05/3/14(月) 16:31 発言
【23247】Re:ハイパーリンクを利用し、添付ファイルを... みらい 05/3/17(木) 9:24 お礼

58460 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free