Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1260to1264
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
Inhaltsverzeichnis

Email an CC aus selektierter Zeile

Email an CC aus selektierter Zeile
Alex
Hallo zusammen,
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Email an CC aus selektierter Zeile
04.05.2012 17:11:46
Rudi
Hallo,
das sollte normalerweise so funktionieren:
Sub SendeNachricht()
Dim oOL As Object
Dim oOLMsg As Object
Dim lRow As Long, wks As Worksheet
lRow = ActiveCell.Row
Set wks = Sheets("Tabelle1")
Set oOL = CreateObject("Outlook.Application")
Set oOLMsg = oOL.CreateItem(0)
With oOLMsg
.To = wks.Cells(lRow, 2)
.CC = wks.Cells(lRow, 2)  'Zelle anpassen
.Subject = "TestInfo"
.Body = wks.Cells(lRow, 10)
.Importance = 1
.Send
End With
wks.Cells(lRow, 3) = "Gesendet"
Set oOLMsg = Nothing
Set oOL = Nothing
End Sub

Gruß
Rudi
Anzeige

299 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige