Outlookfenster wird nicht aktiviert
08.01.2021 15:08:09
Peter
vermutlich ein winziges Problem. Ich bekomme es aber einfach nicht gebacken, da ich keine Systematik dahinter erkenne.
Also Folgendes.
Ich habe ein Userform, von der ein Screenshot erstellt wird und welcher danach per Outlook Email verschickt werden soll.
Es funktioniert auf meinem und auch auf anderen Rechnern, aber eben nicht auf allen.
Ich habe festgestellt, daß auf einzelnen Rechner, bei dem es nicht funktioniert, der Focus auf das Emailfenster nicht ausgeführt wird. Da also das Fenster nicht aktiviert/focussiert wird, kann der Screenshot nicht eingefügt werden.Es wird lediglich der unten aufgeführte Text eingefügt.
Nun suche ich eine Möglichkeit, wie ich das geöffnete Emailfenster aktivieren jederzeit aktivieren kann, bevor der Screenshot eingefügt wird.
Wäre das eine Möglichkeit?
Hier ist der Code dazu.
Grüße
Peter
Sub Emailsenden()
'nur das aktives Formular:
Dim OutApp As Object
Dim str_Betreff As String
Dim str_An As String
Dim str_CC As String
Dim HTMLBody As String
Dim OutMail As Object
str_Betreff = "Testtext " & Formular.Listingdatum.Value & " - " & Formular.EDV.Value
str_An = "test@test.de"
str_CC = "Test1@test.de"
str_HTMLBody = "Liebe Kollegen," & "
" & _
"
" & "würdet Ihr bitte usw. usw. usw. ..... ." & "
" & _
"
" & "Vielen Dank" & "
" & _
"
" & Formular.Handel.Value & "
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
With OutMail
.To = str_An
.CC = str_CC
.BCC = str_Bcc
.Subject = str_Betreff
.HTMLBody = str_HTMLBody
.Display
Application.SendKeys ("^{END}~^v"), True 'screenshot wird eingefügt
' .send
End With
Set OutMail = Nothing
Set OutApp = Nothing
End Sub