Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
548to552
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
548to552
548to552
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Outlook Lesebestätigung

Outlook Lesebestätigung
20.01.2005 10:06:21
Michael
Hallo Miteinander!
Ich habe auf Hans CD folgenden Code für Outlook gefunden:
StandardModule: Modul1

Sub SendAndSetFlag()
Dim oOL As Object
Dim oOLMsg As Object
Dim oOLRecip As Object
Dim oOLAttach As Object
Dim sFile As String, sRec As String, s

Sub As String
Dim sBody As String
Set oOL = CreateObject("Outlook.Application")
sRec = Range("B1").Value
sFile = Range("B2").Value
If Dir(sFile) = "" Then
Beep
MsgBox "Datei wurde nicht gefunden!"
Exit Sub
End If
s

Sub = "Textdatei"
Set oOLMsg = oOL.CreateItem(0)
With oOLMsg
Set oOLRecip = .Recipients.Add(sRec)
.Subject = sSub
Set oOLAttach = .Attachments.Add(sFile)
.FlagStatus = olFlagMarked
.Send
oOLRecip.Resolve
End With
Set oOL = Nothing
End Sub

Hierzu möchte ich fragen, wie man zusätzlich eine Lesebestätigung für diese eine Mail anfordern kann.
Vielen Dank für Eure Hilfe
Gruß
Michael Heering

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Outlook Lesebestätigung
bst
Morgen Michael,
versuch's mal so:
.OriginatorDeliveryReportRequested = True ' Übermittlungsbestätigung
.ReadReceiptRequested = True ' Lesebestätigung
HTH, Bernd
Vielen Dank (ot)
Michael
.
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige