Email mit Nachverfolgung

• Email mit Nachverfolgung von Martin vom 15.12.2003 11:55:57
  • AW: Email mit Nachverfolgung - von Hans W. Herber am 17.12.2003 06:08:26
    • AW: Email mit Nachverfolgung - von Martin am 17.12.2003 08:42:30

Betrifft: Email mit Nachverfolgung
von: Martin
Geschrieben am: 15.12.2003 11:55:57
Hallo liebe Forumsbesucher,

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

Betrifft: AW: Email mit Nachverfolgung
von: Hans W. Herber
Geschrieben am: 17.12.2003 06:08:26
Hallo Martin,

mit dieser Methode ist das nicht machbar. Siehe Beispielarbeitsmappe unter:
https://www.herber.de/bbs/texte/13outlook.xls

gruss hans

Betrifft: AW: Email mit Nachverfolgung
von: Martin
Geschrieben am: 17.12.2003 08:42:30
Hallöchen Hans,

hab vielen Dank für Deine Hilfe.
Werd mich gleich mal mit der Datei befassen.

MfG,
Martin

Excel-Beispiele zum Thema " Email mit Nachverfolgung"
Nachricht versenden und zur Nachverfolgung kennzeichnen