mit dem untenstehenden Code versende ich eine E-mail aus Excel heraus.
Funkt so weit, nun möchte ich das auf meinem Sheet Zelle "B11" als Empfänger
im Qutlook unter CC eingetragen wird.
Funkt leider nicht bzw. wird bei Empfänger "An" eingetragen.
Hat jemand eine Idee ?
Gruss Detlef
Dim objNachricht As Object 'Variable für die Mail
Dim objRecipient As Object 'Variable für die Empfänger
Dim objCC As Object 'Variabele CC Empfänger'
Set olApp = CreateObject("Outlook.Application") 'Erzeuge Outlook-Sitzung
Set objNachricht = olApp.CreateItem(0)
With objNachricht
.Subject = "test"
.Body = "test"
Set objRecipient = .Recipients.Add(Range("b7").Value)
Set objCC = .Recipients.Add(Range("b11").Value)
.DeleteAfterSubmit = False
.display
End With
Set objRecipient = Nothing
Set objNachricht = Nothing
Set olApp = Nothing
End Sub