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