Email an CC aus selektierter Zeile
Alex
ich habe folgendes Script das auch wunderbar funktioniert.
Es wird durch das Script eine Mail gesendet, an den Datensatz, dessen Zeile gerade selektiert ist.
Jetzt möchte ich es gern erweitern, indem ich diese Mai nicht nur an den Empfänger sondern auch in CC an einige Personen sende und ich möchte in einem Feld der selektierten Zeile die Info "Gesendet" ablegen.
Ich weiß allerdings nicht wie ich das genau hinbekomme
Sub SendeNachricht()
Dim oOL As Object
Dim oOLMsg As Object
Dim oOLRecip As Object
Set oOL = CreateObject("Outlook.Application")
Set oOLMsg = oOL.CreateItem(0)
With oOLMsg
'@emailadresse
Set oOLRecip = .Recipients.Add(Worksheets("Tabelle1").Range("B" & ActiveCell.Row). _
Value)
'? so geht's jedenfalls nicht
.CC = Worksheets("Tabelle1").Range("B" & ActiveCell.Row).Value)
.Subject = "TestInfo"
.Body = Worksheets("Tabelle1").Range("J" & ActiveCell.Row).Value
.Importance = 1
.Send
End With
oOLRecip.Resolve
Set oOLMsg = Nothing
Set oOLRecip = Nothing
Set oOL = Nothing
'hier wollte ich in eine Zelle "gesendet" schreiben
Range("C" & ActiveCell.Row).Value).Select
End Sub
Anzeige