Anzeige
Archiv - Navigation
1180to1184
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

selektierte Zeile als Email versenden

selektierte Zeile als Email versenden
Alex
Hallo zusammen,
ich habe hier im Forum einen wunderbaren Code gefunden. Es ist schon fast das, was ich brauche.
Ich weiß nur nicht, wie ich es hinbekomme, dass das Script die Zellen nimmt, die in der selektierten Zeile stehen.
Ich möchte also, wenn ich eine Zelle in der Zeile 85 selektiert habe, dass das Script die Mailadresse dann nicht aus D1, sondern aus D85 verwendet usw.
Ich hoffe, ihr wisst, wie ich das meine...
hier ist der Code:
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
Set oOLRecip = .Recipients.Add(Worksheets("Adressen").Range("D1").Value) '@ _
emailadresse
.Subject = "Info"
.Body = Worksheets("Adressen").Range("G1").Value
.Importance = 0
.Send
End With
oOLRecip.Resolve
Set oOLMsg = Nothing
Set oOLRecip = Nothing
Set oOL = Nothing
End Sub
Danke
Gruß Alex

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: selektierte Zeile als Email versenden
20.10.2010 16:45:25
mumpel
Hallo!
Gruß, René
AW: selektierte Zeile als Email versenden
20.10.2010 17:27:19
Alex
Danke René, genau das hab ich gebraucht..!!
Schönen Abend noch..!!
Anzeige

309 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige