Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
616to620
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
616to620
616to620
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA: E-mail an alle markierten felder senden

VBA: E-mail an alle markierten felder senden
25.05.2005 13:08:36
der
Hallo.
Ich habe eine Liste mit Namen, denen jeweils eine E-Mailadresse zugeordnet ist.
Per Knopfdruck soll _eine_ E-Mail (mit Subject xy) mit alle markierten Namen als Empfänger erstellt werden. Wie kann ich das umsetzen?
Vielen lieben Dank für die Hilfe & Grüße aus Berlin!
der alex

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

Betreff
Datum
Anwender
Anzeige
AW: VBA: E-mail an alle markierten felder senden
25.05.2005 13:35:30
der
Danke für den Link aber leider habe ich dort auch keine Lösung gefunden, in der einfach aus den markierten feldern heraus die namen ausgelesen werden, um ihnen eine emailadresse zuzuordnen
AW: VBA: E-mail an alle markierten felder senden
25.05.2005 14:09:47
bst
Hmm,
lange gesucht hast Du ja nicht ;-), versuch's halt mal mit sowas.
Gruß, Bernd
--
Option Explicit

Sub MailtoSelectedNames()
Dim MailTo As String
Dim cell As Range
Dim outapp As Object, outmail As Object
MailTo = ""
For Each cell In Selection
If cell.Value Like "*@*" Then
MailTo = MailTo & ";" & cell.Value
End If
Next
MailTo = Mid(MailTo, 2) ' den 1. Strichpunkt wieder löschen
' Debug.Print MailTo
If MailTo = "" Then
MsgBox "Keine gültigen eMail-Adressen gefunden!", vbCritical
Exit Sub
End If
Set outapp = CreateObject("Outlook.Application")
Set outmail = outapp.CreateItem(0)
With outmail
.To = MailTo
' .CC = ""
' .BCC = ""
.Subject = "This is the Subject line"
' .Body = "This is a body"
' .Attachments.Add "d:\daten\anyfile.xyz"
.Send   'or use .Display
End With
Set outmail = Nothing
Set outapp = Nothing
End Sub

Anzeige

310 Forumthreads zu ähnlichen Themen

Outlook - Standard Email-Account ändern
Peter

Ich würde gerne per VBA das Standard Email Account ändern.
Von Hand geht das in Outlook mittels Extras../ E-Mail-Konten / Vorhandene E-Mail-Konten anzeigen oder bearbeiten / entsprechendes E-Mail Konto selektieren und "Als Standard festl."
Ich würde nun gerne von Excel aus vom Konto A a...
28.02.2010 08:44:33
Thread-ID: 1141995
6 Beiträge
Anzeige
fast schon OT: Farbe bei Outlooktermin ändern
mtremer

Moin,
bitte nicht gleich hauen.
Das ist eine Frage, die sich auf einen in einer Exceldatei in Gang gesetzter Code bezieht, mit dem ein Termin in Outlook generiert wird. Ich hoffe, Ihr könnt mir trotzdem helfen.
Dieser Code wird mit einem CommanButton in Excel angesteuert:
Range(...
19.11.2010 15:32:14
Thread-ID: 1187814
10 Beiträge
mit vba mail über internen webmailer versenden
DirkR

Hallo Excelgemeinde,
ich habe ein "kniffeliges" Problem und komme nicht weiter.
Wir haben früher Outlook bei uns im Betrieb benutzt um interne und exteren Mails zu empfangen und senden.
Wir haben einen interen Mail-Server mit der IP 10.10.78.152
Mein Admin hat mir mitgeteilt, da...
12.06.2012 13:16:10
Thread-ID: 1267072
7 Beiträge
Anzeige
VBA Mail ohne Nachfrage senden
gisela

Hallo,
ich brauche Hilfe beim Mailversand.
Die Mail soll einmal am Tag versandt werden.
Das klappt nicht immer. Warum weiss ich nicht. Die Mail erscheint dann auf meinem Desktop und ich muss senden nochmal bestätigen. Der Inhalt der Mail ist ok.
Die Mail soll ohne Nachfrage dire...
16.05.2013 08:35:07
Thread-ID: 1313281
13 Beiträge
Outlook Datum, Betreff und Absendername
Hans

Hallo Leute,
also folgendes Problem zur einfachen Verwaltung der Mails im Outlook habe ich folgenden Code zur Verfügung:
Sub Speichern() Dim myItems As Object, myItem As Object Dim myOrt As String, myAbsenderName As String Dim myOlApp As New Outlook.Application Dim myOlExp As Outlook.E...
22.07.2013 14:57:38
Thread-ID: 1323559
9 Beiträge
Namen aller Arbeitsmappe in einem Ordner ändern
Dingdang

Hallo,
ich möchte anhand den Felderbenennungen einer Arbeitsmappe (nenne ich Mustermappe) die Namen in aller Arbeitsmappen in einem vorgegebenen Ordner anpassen. Ich glaube man kanns direkt lösen oder zuerst die Namen aus Mustermappe auslesen und in einer Tabelle (Infortabelle) speichern un...
24.10.2013 10:55:55
Thread-ID: 1335692
4 Beiträge
VBA pdf über mappe und e-mail versenden
Marco

Hallo,
ich benötige eure Hilfe in 3 Sachen...
1) PDF erstellen über gesamte Arbeitsmappe
Für die beigefügte Datei muss über ein VBA Code die gesamte Mappe als .pdf Datei abgespeichert werden.
2) Mail mit dem angezeigten Sheet versenden
3) Mail mit der gesamten Arbeitsmappe v...
05.03.2014 11:56:19
Thread-ID: 1352234
4 Beiträge
VBA Email senden
Marcy

Hallo zusammen,
um durch die Vorarbeiter einfacher die AV über Fehleile zu informieren, wäre folgende VBA cool.
Überall werden Listen geführt, danach wird dann zusätzlich die AV informiert und und und, alles umständlich.
Sub Emailsenden ()
1) Suche in Spalte H ab Zeile 18 die er...
20.05.2014 13:18:49
Thread-ID: 1362468
15 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
5
2
9
6
3
12
8
3
3
14
4
1
2
2
1
10
3
9
3
1
5
2
1
5
5