Email mit Nachverfolgung
15.12.2003 12:55:57
Martin
ich nutze folgenden Code, um ein Tabellenblatt aus Excel als Email zu versenden:
Sub KalkulationAlsEmail()
Dim Empfänger As String
Empfänger = InputBox("Bitte geben Sie den Empfänger ein!")
If Empfänger = "" Then Exit Sub
ActiveWorkbook.ActiveSheet.Copy
ActiveSheet.Name = Trim(Range("A3")) & " " & Trim(Range("F3"))
ActiveWorkbook.SaveAs Range("A3").Text & " " & Range("F3").Text
ActiveWorkbook.SendMail Recipients:=Empfänger, Subject:=Trim(Range("A3")) & " " & Trim(Range("F3"))
ActiveWorkbook.ChangeFileAccess xlReadOnly
Kill ActiveWorkbook.FullName
ActiveWorkbook.Close savechanges:=False
End Sub
Gibt es hier die Möglichkeit die Option "Zur Nachverfolgung kennzeichnen" in Outlook mit zu aktivieren?
Bitte um Hilfe.
MfG,
Martin
Anzeige