Excelbatt mit Outlook versenden
15.01.2014 15:17:33
EwaldS
ich habe ein Excelformular erstellt das ich per Makro über Outlook an ein Gruppenpostfach versende. Das ausfüllen und versenden fuktioniert.
Wenn der Empfänger das Excelblatt öffnet sind die eingetragenene Daten gelöscht.
Ich finde den fehler nicht. Nachfolgend der Inhalt des Makros.
Bedanke mich schon für die Hilfe bei der Fehlersuche!
Viele Grüße
Ewald
Sub TabellenblattVerschicken()
ActiveSheet.Copy
Application.Dialogs(xlDialogSendMail).Show _
"Chemielager-TWN.energy@siemens.com", "Bestellung an TWN-Chemielager! " & VBA.Date & " _ " & _
_
VBA.Time
End Sub
Sub SetRecipients()
Dim aOutlook As Object
Dim aEmail As Object
Dim rngeAddresses As Range, rngeCell As Range
Set aOutlook = CreateObject("Outlook.Application")
Set aEmail = aOutlook.CreateItem(0)
'set Importance
aEmail.Importance = 2
'Set Subject
aEmail.Subject = "Bestellung an TWN-Chemielager! " & VBA.Date & " _ " & VBA.Time
'Set Body for mail
aEmail.Body = "Dies ist eine Bestellung, Bitte Bearbeiten."
'Set attachment
aEmail.ATTACHMENTS.Add ActiveWorkbook.FullName
'Set Recipient
aEmail.Recipients.Add "xxxxxx@.yyyycom"
'Send Mail
aEmail.Send
MsgBox ("Die Bestellung an das TWN-Chemielager wurde soeben automatisch versendet" & vbNewLine _
_
& vbNewLine & "Die Bestellung wird so schnell wie möglich bearbeitet!"), vbOKOnly, " _
Materialanforderung TWN - Chemielager"
End Sub