Excel VBA質問箱 IV

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

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


9739 / 13644 ツリー ←次へ | 前へ→

【25713】メール送信前の更新が添付に反映不可 きゅうりがにがて 05/6/11(土) 17:27 質問[未読]
【25715】Re:メール送信前の更新が添付に反映不可 かみちゃん 05/6/11(土) 17:32 発言[未読]

【25713】メール送信前の更新が添付に反映不可
質問  きゅうりがにがて  - 05/6/11(土) 17:27 -

引用なし
パスワード
   初めまして、きゅうりがにがて、です。
自ブックを添付してメールを送信するときに、送信回数を記録するためにセルに保存しています。
下記のコードを実行すると開いているブックは更新されているのですが、メールに添付されたブックは更新前の状態です。なにが足りないのでしょうか、ご教授ください。
なお、制約としてこの処理時にブックの保存はできません。

Private Sub CommandButton1_Click()
  Dim olApp As Outlook.Application
  Dim olItem As Outlook.MailItem
  
  '送信回数を保存する        ※この処理が添付ファイルに反映されない。
  Sheets("Sheet1").Range("A1") = Sheets("Sheet1").Range("A1") + 1
  
  Set olApp = New Outlook.Application
  Set olItem = olApp.CreateItem(olMailItem)
   
  With olItem
    .To = "abc@def.co.jp"
    .Subject = "送信試験"
    .Body = "送信試験です。"
    .Attachments.Add ThisWorkbook.FullName
    .Send
  End With
    
  Set olItem = Nothing
  Set olApp = Nothing
End Sub

【25715】Re:メール送信前の更新が添付に反映不可
発言  かみちゃん  - 05/6/11(土) 17:32 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>下記のコードを実行すると開いているブックは更新されているのですが、メールに添付されたブックは更新前の状態です。なにが足りないのでしょうか、ご教授ください。
>なお、制約としてこの処理時にブックの保存はできません。

編集中のブックを送信したことがないので、わからないですが、
ブックの上書き保存をしない限り、開く前の状態でしか添付されないのではない
でしょうか?
制約があるなら、処理を見直したほうがよろしいかと・・・

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