Mittels folgendem Code hinter einer Command-Button leg ich ein Excel-Formular in den Anhang einer Email.
Anschliessend soll das Excel-Formular gleich komplett wieder geleert werden, so dass der User die nächsten
Daten direkt eintippen kann, ohne zuerst wieder das komplette Formular öffnen zu müssen.
Set OutApp = CreateObject("Outlook.Application")
Dim AWS As String
On Error Resume Next 'bei allfälligem Fehler, gehe weiter !
'Aktive Arbeitsmappe wird als Mail gesendet
AWS = ThisWorkbook.FullName
Set Nachricht = OutApp.CreateItem(0)
With Nachricht
.To = "test@mueller.com"
.Subject = "Bestell-Formular " & Date & Time
.attachments.Add AWS
'.Body = "Das ist ein Test." & vbCrLf & "Bitte ignorieren."
'Hier wird die Mail nochmals angezeigt
.Display
'Hier wird die Mail gleich in den Postausgang gelegt
'Mail.Send
End With
'Outlook schliessen
'OutApp.Quit
'Set OutApp = Nothing
Set Nachricht = Nothing
'Formular.xlsm wird zurückgesetzt / geleert
'======================================================
Windows("Formular.xlsm").Activate
ActiveSheet.Range("B8").Value = "9999"
ActiveSheet.Range("B11").Value = "123456"
ActiveSheet.Range("C11").Value = "Lieferant XY"
ActiveSheet.Range("F8:F12").ClearContents
ActiveSheet.Range("A19:E200").ClearContents
End Sub
Mein Problem ist nun, dass zwar das Formular in den Anhang einer Email gepackt wird, allerdings wird dann auch gleich dieser Anhang geleert.
Was mach ich falsch ?
Wie kann ich verhindern, dass die Daten auch im Formular des Dateianhangs gelöscht werden ?
PS: Den Code hab ich aus einer Lösung aus Google zusammengebastelt.
Danke für all eure Hilfe !