Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
648to652
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
648to652
648to652
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Zeile als Email senden
06.08.2005 17:52:09
Stan
Hallo Excel Freunde!
Ich will aus einer Excel Datei (Besprechungen.xls) per Button
einen E-Mail schicken der beinhaltet nur eine Zeile
aus einer Adressen.xls Datei.
In der Zelle F6 Besprechungen.xls steht immer
die Nummer der Zeile zum Verschicken in Adressen.xls.
Mit dem Makro unten sende ich nur die ganze Datei.

Sub Info_BeiKlick()
ActiveWorkbook.SendMail Recipients:="xxx@t-online.de"
End Sub

Wie kann ich nur die gewisse zeile senden?
Danke für Ihre Hilfe.

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeile als Email senden
07.08.2005 14:24:47
Lorenz
Hallo Namenloser!
Im Blatt Adressen in Zelle "A1" dein Text; in Zelle "A10" die E-Mailadresse
Code in Blatt "Adressen" einfügen,..
gegebenenfalls ("Adressen" anpassen),..
Makro ausführen (Alt+F8),..
SendeNachricht auswählen...

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("A10").Value) '@emailadresse
.Subject = "Info"
.Body = Worksheets("Adressen").Range("A1").Value
.Importance = 0
.Send
End With
oOLRecip.Resolve
Set oOLMsg = Nothing
Set oOLRecip = Nothing
Set oOL = Nothing
End Sub

Grüsse Lorenz
Anzeige
AW: Zeile als Email senden
07.08.2005 14:27:34
Lorenz
Hallo Stan!
Tschuldigung für das "Namenloser"!
Habe "Stan" übersehen!
Grüsse Lorenz
AW: Zeile als Email senden
07.08.2005 18:44:25
Stan
Hallo Lorenz.
So funktioniert gut, aber nur von der Datei Adressen.xls, Blatt Adressen.. Meine Vorgaben habe ich in der Datei Besprechungen.xls, Blattname ist Daten. Hier habe ich auch die E-Mailadresse, sagen wir in A10.Ich habe das Makro geändert.

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("Daten").Range("A10").Value) '@emailadresse
.Subject = "Info"
.Body = Worksheets("Daten").Range("1:1").Value
.Importance = 0
.Send
End With
oOLRecip.Resolve
Set oOLMsg = Nothing
Set oOLRecip = Nothing
Set oOL = Nothing
End Sub

Wie kann ich die Zeile Body ändern auf:
D:\adressen.xls und Range (1:1) fir die ganze erste Zeile?
Gruß Stan
Anzeige

122 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige