Excel (VBA)

Excel VBAに関するフォーラムです。
  • 掲示板への投稿には会員登録(無料)が必要です。会員登録がまだの方はこちら
  • 掲示板ご利用上のお願い」に反するご記入はご遠慮ください。
  • Q&A掲示板の使い方はこちらをご覧ください
トピックに返信
質問

 
(Windows 10全般 : Excel 2016)
Windows画面ロック中での表をメールへの貼り付け方法
投稿日時: 20/10/11 14:41:24
投稿者: ea

タスクスケジューラーでVBAで自動メール作成をしたいのですが
ログイン状態の動作は問題なく動くのですが
Windows画面ロック中では、タスクスケジューラーから動くと
下記で停止してしまいます。
 
Pasteで
実行時エラー4605
クリップボードにデータがないか・・・
 
実際にクリップボードにデータなく
Outlookのメールに貼り付けできないようです。
解決方法を御教授頂けないでしょうか?
よろしくお願いいたします
 
Sub sample()
Dim objOutlook As Outlook.Application
Set objOutlook = New Outlook.Application
Dim objMail As Outlook.MailItem
Set objMail = objOutlook.CreateItem(olMailItem)
 
objMail.To = "アドレス"
objMail.Subject = "件名"
objMail.BodyFormat = olFormatHTML
objMail.Display
 
With objMail.GetInspector().WordEditor.Windows(1).Selection
.TypeText "こんにちわ" & vbCrLf
Worksheets("Sheet2").Range("D10:N18").Copy
.Paste
.TypeText vbCrLf '改行
.TypeText "お元気ですか" & vbCrLf
Worksheets("Sheet2").Range("D19:N28").Copy
.Paste
 
End With
End Sub

回答
投稿日時: 20/10/12 10:08:31
投稿者: Suzu

Copy を使用せず 素直に、値を渡しては如何でしょうか?
必要なのであれば、書式等も設定します。
 
お勧めはできませんが、ロックしないようにする。

トピックに返信