Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
780to784
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
780to784
780to784
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

in untenstehenden Code...

in untenstehenden Code...
10.07.2006 13:28:43
tequilla
Bcc Empfänger angeben?
Hallöchen,
ich habe eine Frage an die Experten hier im Forum und zwar ist es möglich ein BCC- Feld in den u.g. Code einzufügen? Wenn ja, kann mir jemand erklären, wie ich es hinbekomme!?!
Danke im Voraus und hier der Code:

Sub Email_KVU()
Dim olApp As Object
Set olApp = CreateObject("Outlook.Application")
With olApp.CreateItem(0)
'Empfänger
.Recipients.Add " "
'Betreff
.Subject = ActiveWorkbook.Name & " " & Format(Date, "dd.mm.yy")
'Nachricht
.body = "Bitte Auftrag terminieren!" & Chr(13) & Chr(13) & _
"file:///" & ActiveWorkbook.Path & "\" & ActiveWorkbook.Name & Chr(13) & Chr(13) & _
"Mit freundlichen Grüßen"
'Lesebestätigung ein
.ReadReceiptRequested = True
'Dateianhang
.Display
'.Send
End With
Set olApp = Nothing
End Sub

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: in untenstehenden Code...
11.07.2006 06:46:33
Tom
Hallo,
einfach .BCC:

Sub Email_KVU()
Dim olApp As Object
Set olApp = CreateObject("Outlook.Application")
With olApp.CreateItem(0)
'Empfänger
.Recipients.Add " "
'Betreff
.Subject = ActiveWorkbook.Name & " " & Format(Date, "dd.mm.yy")
'Nachricht
.body = "Bitte Auftrag terminieren!" & Chr(13) & Chr(13) & _
"file:///" & ActiveWorkbook.Path & "\" & ActiveWorkbook.Name & Chr(13) & Chr(13) & _
"Mit freundlichen Grüßen"
'Lesebestätigung ein
.ReadReceiptRequested = True
'Dateianhang
.Display
.BCC = "Mustermann@bsp.com"
'.Send
End With
Set olApp = Nothing
End Sub

Grüsse
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige