Excel VBA質問箱 IV

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

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


58326 / 76732 ←次へ | 前へ→

【23135】Re:ハイパーリンクを利用し、添付ファイルを挿入する方法2
発言  G-Luck  - 05/3/14(月) 16:31 -

引用なし
パスワード
   ▼みらい さん:

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

Sendの位置(下記)ということではなくてですよね。
申し訳ありませんが、私の環境では実験が出来ません。
他に、ご存知の方がいましたら、よろしくお願いします。

>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, "ファイルの表示名"
     myitem.Attachments .Add "ファイルの指定", 1, 1, "ファイルの表示名"
     myitem.send
>     Set MyAttachments = myitem.Attachments
>    Set myOutLook = Nothing: Set myitem = Nothing
> 
>End Sub
2 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 お礼

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