Liebe Community,
ich verfolge das Forum seit geraumer Zeit und habe hier mittels der Suche viele meiner Probleme bereits gelöst bekommen. Bei einem Problem komme ich allerdings gerade überhaupt nicht weiter.
Zur Problemlage:
Ich habe ein Excel VBA Skript, welches eine Mail erstellt und dort als Body eine Range aus dem aktiven Workbook einfügt. Den Code zum Einfügen der Range habe ich aus dem Internet erbeutet. Leider habe ich diesen Code immer noch nicht im Detail verstanden. Nichtsdestotrotz läuft der Code super, außer wenn ich während der Ausführung des Skripts in Outlook weitere Mail Entwürfe geöffnet habe. Dann läuft das Einfügen der Range ins Leere. Hat jemand eine Idee? Folgend mein Code Baustein:
' Create Mail
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
With OutMail
.SentOnBehalfOfName = Range("Sender")
.Subject = Range("Display_Decision") & " | ID: " & Range("ID") & " | " & Range("eMailSubject")
.Body = ""
.Importance = 1
.To = Range("eMail_of_the_Requestor")
.CC = ""
.Attachments.Add PathToInformation
.Display
' Copy and paste the sheet "Information" into the eMail
Set xInspect = .GetInspector
Set pageEditor = xInspect.WordEditor
ThisWorkbook.Worksheets("Information").Range("B1:I100").Copy
pageEditor.Application.Selection.Start = Len(.Body)
pageEditor.Application.Selection.End = pageEditor.Application.Selection.Start
pageEditor.Application.Selection.Paste
Set pageEditor = Nothing
Set xInspect = Nothing
.Display
' .Send
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing