Question

我每天都会运行一个向很多人发送电子邮件的脚本，但我对这个脚本有一个随机的问题，有两种不同的方式。

首先：图片正确粘贴在我的Outlook对象中，所以一切正常。

第二次：图片粘贴在Excel而不是Outlook中，脚本在这里被锁定，没有来自应用程序的错误。

这真的很令人不安，因为当我重新启动时它就没事了，但是如果其他人想要进行操作并且出现错误，那就不好了

我使用CopyPicture和SendKeys＆＃34; ^ v＆＃34;将其粘贴到Outlook中。

这是我的代码：

Dim OutApp As Object, OutMail As Object
Application.Wait Now + TimeValue("00:00:01")
If colonne = 10 Then
Range("A1:AA103").CopyPicture xlScreen, xlBitmap
Else
Range("A1:AA97").CopyPicture xlScreen, xlBitmap
End If
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
With OutMail
            .To = ""
            .CC = ""
            .BCC = ""
            .Subject = ""
            .HTMLBody = ""

  .display

End With
SendKeys "^v"

有一个HTMLBody和一个主题，但这是唯一的文字，所以我只把重要的代码放在这里。

我已经查看过之前提供的所有解决方案，但没有人回应我的随机问题。

谢谢

Answer 1

尝试在显示后使用DoEvents

.Display
DoEvents

使用CopyPicture在我的Outlook对象中随机粘贴

1 个答案: