Herbers Excel-Forum - das Archiv
Email mit Nachverfolgung
Informationen und Beispiele zu den hier genannten Dialog-Elementen:
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