Excel VBA質問箱 IV

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

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


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

15457 / 76734

←次へ　｜　前へ→


	【66754】現在ブックを添付してメールするには

MASATO - 10/10/3(日) 20:17 -


	引用なし

	パスワード

こんばんは

　現在ブックを添付してメールするには、以下のコードを組みました。
うまく動きません。どこに間違っているかはわからなくて、
困っています。ご指導ください。
よろしくお願いします。

----------------------------------------------------------------------
環境：WindowsVistaHome
　　　Office2007
　　　Windowsメール

実施計画：ブックを開いた状態で、以下のVBAを実行すると、現在の
　　　　　ブックを添付して、固定のアドレスへ送信される。
　
Sub 現在ブック添付送信()

　Dim strAdd As String
　Dim strSub As String

　'宛先のアドレスを変数strAddへ代入
　strAdd = "abcdefg@hijk.co.jp";
　'件名表示を変数strSubへ代入
　strSub = "現在ブックを添付してメールを送信する"

　ActiveWorkbook.SendMail Recipients:=strAdd, Subject:=strSubEnd

Sub
----------------------------------------------------------------------

1 hits

▼

【66754】現在ブックを添付してメールするには MASATO 10/10/3(日) 20:17

≪