in untenstehenden Code...
10.07.2006 15:28:43
tequilla
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
Anzeige