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