ich möchte die Zwischenablage aus Excel in den HTMLBody eines generierten Outlook-E-Mails einfügen. Das Problem ist, dass es bei mir am Rechner problemlos funktioniert. Wenn ich allerdings an einen anderen Rechner gehe, dann fügt es die Zwischenablage nicht ein. Setze ich aber an diesem Rechner im Makro einen Haltepunkt nach dem Einfügebefehl, dann funktioniert es auch! Habe es auch schon mit "Wait" versucht, hat nicht funktioniert.
Hat jemand Erfahrung damit?
Danke für die Hilfe.
Code:
Dim oApp As Object
Set oApp = CreateObject("Outlook.Application")
On Error Resume Next
With oApp.CreateItem(0)
.To = Recipient
.cc = Recipientcc
.Subject = Subject
.HTMLBody = ""
.Display
SendKeys "^v", True
.Send 'Hier habe ich den Haltepunkt im Debugger
End With
MsgBox "Antrag wurde verschickt !", vbOKOnly + vbInformation