Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
796to800
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
796to800
796to800
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Email-Verteiler aus Kundendaten extrahieren

Email-Verteiler aus Kundendaten extrahieren
27.08.2006 16:06:38
wuerzs
Hallöchen ihr Spezis,
habe da eine kleine Aufgabe.
Ich habe in einer Excel-Liste aufgelistete Kundendaten mit Name, Anschrift Telefonnummer, E-Mail-Adresse ect.
Meine Frage ist nun wie bekomme ich aus diesen Kundendaten die Email-Adresse als Verteiler für Outlook extrahiert? Sprich vielleicht ein Makro was mir automatisch einen E-Mail-Verteiler erstellt mit allen E-Mail-Adressen des Sheets drinne?
Hat jemand eine Lösung für mich?
LG
wuerzs

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Email-Verteiler aus Kundendaten extrahieren
27.08.2006 17:54:43
Josef
Hallo ?
Angenommen die E-Mail-Adressen stehen in Spalte "E".
Sub SendMassMail()
Dim objOutApp As Object
Dim objOutMail As Object
Dim lngLast As Long
Dim strTo As String
Dim rng As Range

On Error GoTo ErrExit

Application.ScreenUpdating = False

lngLast = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row

For Each rng In Range(Cells(2, 5), Cells(lngLast, 5)) ' 5=Spalte "E" !
  If Len(Trim(rng)) > 0 And InStr(1, rng, "@") > 0 Then
    strTo = strTo & rng.Text & ";"
  End If
Next

If Len(strTo) > 0 Then
  strTo = Left(strTo, Len(strTo) - 1)
Else
  Exit Sub
End If

Set objOutApp = CreateObject("Outlook.Application")

Set objOutMail = objOutApp.CreateItem(0)

With objOutMail
  .To = strTo
  .cc = ""
  .Subject = "Dein Betreff"
  .Body = "Dein Text!" & vbNewLine & vbNewLine & _
    "Weiterer Text!"
  'Anhang einfügen!
  '.Attachments.Add ("C:\test.txt")
  .Display 'oder .Send
End With

Set objOutMail = Nothing

ErrExit:

Set objOutApp = Nothing
Application.ScreenUpdating = True
End Sub



Gruß Sepp

Anzeige

305 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige