Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
23.04.2024 21:29:56
Bestimmte Zellen auf andere Arbeitsblätter kopieren
23.04.2024 17:41:19
Link erstellen mit Formel oder VBA?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1208to1212
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1208to1212
1208to1212
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Mail an alle email-adressen in Spalte

Mail an alle email-adressen in Spalte
Stefan
Hi Leute,
ich habe im Bereich D4:D... eine reihe von email adressen stehen und würde gerne ein paar Dinge per mail senden.
Ich habe auch schon einen Code dafür, jedoch bezieht sich dieser nur auf die zelle D4 für die email adresse.
Könnt ihr mir helfen, den Code so anzupassen, dass er als Empfänger alle email Adressen einträgt, die im Bereich D4:D ... stehen? Also ich möchte nur ein einziges Email verschicken, nicht an jeder Empfänger einzeln.
Das wär echt toll! :-)
Hier mein Code:
'InitializeOutlook = True
Set MyOutApp = CreateObject("Outlook.Application")
'Nachrichtenobject erstellen
Set MyMessage = MyOutApp.CreateItem(0)
With MyMessage
.To = mappe1.Worksheets(mappe1.Worksheets.Count).Cells(n, 4)
'oder auch eine Zellen-Angabe möglich
.Subject = "Lieferantenbewertung - Bitte um Durchführung"
'Attachment zugefügt
.Attachments.Add AWS
'Hier wird die HTML Mail erstellt
.Body = "Das ist ein Test." & vbCrLf & "Bitte ignorieren."
.Display
.Send
Dankeschööön! :)

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

Betreff
Benutzer
Anzeige
AW: Mail an alle email-adressen in Spalte
15.04.2011 09:10:07
Rudi
Hallo,
das musst du, soviel ich weiß, als Array übergeben.
Etwa so: 
With Mappe1
With .Worksheets(.Worksheets.Count)
arrTo = WorksheetFunction.Transpose(.Range(.Cells(2, 4), .Cells(Rows.Count, 4).End(xlUp)))
End With
End With
With MyMessage
.To = arrTo
End With

Gruß
Rudi
AW: Mail an alle email-adressen in Spalte
15.04.2011 10:44:24
Stefan
Hi Rudi
hab versucht, deinen Array Vorschlag einzubauen, jedoch gibt er mir eine Fehlermeldung bei .to = arrto aus. "Die untere Array grenze muss null sein"
kannst du mir da helfen?
Hier mein code:
With ActiveWorkbook
'InitializeOutlook = True
Set MyOutApp = CreateObject("Outlook.Application")
'Nachrichtenobject erstellen
Set MyMessage = MyOutApp.CreateItem(0)
With .Worksheets(.Worksheets.Count)
arrTo = WorksheetFunction.Transpose(.Range(.Cells(3, 4), .Cells(Rows.Count, 4).End(xlUp)))
End With
With MyMessage
.To = arrTo
.Subject = "Lieferantenbewertung - Bitte um Durchführung"
'Attachment zugefügt
.Attachments.Add AWS
'Hier wird die HTML Mail erstellt
.Body = "Das ist ein Test." & vbCrLf & "Bitte ignorieren."
.Display
.Send
End With
End With
Anzeige
AW: Mail an alle email-adressen in Spalte
15.04.2011 09:21:24
Matthias
Hallo
Hier ne weiter Variante (hier D4:D5) - also letzte in D erst auslesen und die 5 evtl.anpassen (aktives Tabellenblatt!)
Set MyOutApp = CreateObject("Outlook.Application")
Set MyMessage = MyOutApp.CreateItem(0)
Dim myString$, n As Long
With MyMessage
.To = "Maxatweb.de"
For n = 4 To 5
myString = myString & ActiveSheet.Cells(n, 4).Value & ";"
Next
.cc = myString
.Subject = "Lieferantenbewertung - Bitte um Durchführung"
.Body = "Das ist ein Test." & vbCrLf & "Bitte ignorieren."
.Display
End With
Gruß Matthias
Anzeige

310 Forumthreads zu ähnlichen Themen

Zählen E-Mailadressen in einer Zeile
Enjoy82

Guten Morgen,
ich hab in die Zelle A1 einen rießigen E-Mail Verteiler kopiert und möchte nun die Anzahl der E-Mail Adressen wissen.
Mit Zählenwenn kam ich nicht wirklich weiter (wollte die @s zählen) -- Formel spuckt 0 aus
Nach jedem Beistrich einen Zeilenumbruch machen, ist mir noc...
27.08.2008 08:59:00
Thread-ID: 1004969
3 Beiträge
Anzeige
Email Hyperlinke mit Betreff aus Dateiname&Registe
Patrick

Hallo miteinander
Ich versuche von der Excel Tabelle eine Email über einen Email Hyperlink zu starten. Diese Email soll automatisch im Betreff den Dateinamen der Exceltabelle und den Namen des aktiven Tablellenblattes/Registers enthalten.
Geht das und wie heisst der Hyperlink dazu ?
...
07.12.2008 15:18:33
Thread-ID: 1030869
3 Beiträge
eMail-Adressen auf Syntax prüfen
Selter

Hallo,
kann ich in XLS auf einfache Weise eine Liste von Adressen auf Korrektheit hinsichlich Syntax prüfen?
In der Liste gibt es u.a. Umlaute etc.
Vielen Dank
Selter
17.02.2009 15:20:00
Thread-ID: 1051513
7 Beiträge
Anzeige
Datei-Namen ändern bei E-Mail-Versand aus Excel
Herbert

Hallo,
kann ich einen Datei-Namen ändern wenn ich sie aus Excel heraus per E-Mail versende und wenn ja wie bitte?
Vielen Dank im Voraus!
Herbert
09.05.2009 11:31:27
Thread-ID: 1074052
5 Beiträge
Email-Adresse automatisch
Tom

Hallo,
mit folgendem Makro wird die aktuelle Mappe per Email versandt.
Wie kann ich erreichen, dass in der Empfängerzeile (An) max.mustermann@musterfirma.de und im Betreff Ihr Auftrag steht
Sub Makro3() Application.Dialogs(xlDialogSendMail).Show End Sub Danke vorab
TOM
01.11.2009 17:30:03
Thread-ID: 1113673
3 Beiträge
Emailadresse auslesen
Tina

Guten Morgen,
in Zelle A1 steht:
achim.bode;achim.boede@vvv.de;
in B1 soll daraus
achim.boede@vvv.de
werden.
Wie geht das per Formel?
Lieben Dank
Gruss Tina
08.04.2010 07:31:20
Thread-ID: 1150565
9 Beiträge
Userform Textbox soll E-Mail Adresse anzeigen
Winfried

Hallo,
ich habe folgende Probleme: In einer Userform werden Adressen erfasst und in einer Tabelle gespeichtert. Die E-Mail Adressen werden nicht als Link erfasst, auf dem Tabellenblatt stehen sie auch nicht als Link. Wie muss ich den Code der Textbox ändern damit die E-Mail Adressen als Lin...
14.04.2010 17:39:26
Thread-ID: 1151809
4 Beiträge
E-Mail Adresse hat keinen Hyperlink VBA
andreas

Hallo zusammen,
ich habe hier einen kleinen Code, damit übertrage ich Werte aus einem Formular in eine externe Tabelle.
Wert in Textbox9 ist immer E-Mail Adresse.
Das auslesen funktioniert problemlos, nur hat die Mail-Adresse in der externen Tabelle den Hyperlink nicht.
Da muss...
09.06.2010 11:56:51
Thread-ID: 1161016
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
6
2
6
4
4
2
8
3
2
2
4
9
2
7
1
3
1
3
1
2
1
1
2
6