Excel VBA質問箱 IV

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

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


58331 / 76732 ←次へ | 前へ→

【23130】Re:ハイパーリンクを利用し、添付ファイルを挿入する方法2
発言  みらい  - 05/3/14(月) 15:26 -

引用なし
パスワード
   ▼G-Luck さん:

 お返事遅くなりましたが、以下のような形に成りました。
 最後に、
 1.この形で添付ファイルをつけると添付ファイルの位置が安定しません。
  最悪なときは、本文の間に入り、本文が読みにくくなります。
 2.自動送信させるために、 'myitem.send をいれましたが
  これを使うと添付ファイルがはいりません。

 1.と2.を解消する、何か良い方法がありますか?
 
Sub 送る()
'
   Set myOutLook = CreateObject("outlook.application")
   Set myitem = myOutLook.CreateItem(olmailItem)
    'OutLookを起動します。
    
    myitem.To = "アドレス"
    myitem.Subject = "件名"
    myitem.Body = "本文"
    myitem.Display
    'myitem.send
     
    Set MyAttachments = myitem.Attachments
    MyAttachments.Add "ファイルの指定", 1, 1, "ファイルの表示名"
   
     Set MyAttachments = myitem.Attachments
    Set myOutLook = Nothing: Set myitem = Nothing
 
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 お礼

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