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

Mail an mehrere Empfänger

Mail an mehrere Empfänger
13.06.2003 11:01:26
Frederik Fuhrmann
Hallo!

Ich möchte mit folgendem Code ein Mail an meherere Empfänger senden, wie geht das?


Sub Mail_ZP16()
Dim Frage

    Frage = MsgBox("Benachrichtigung über aktualisierung der Auswertung senden?", vbQuestion + vbYesNo, "F.F.Excelsystem")
    If Frage = vbNo Then Exit Sub
    Application.ScreenUpdating = False
    Application.DisplayStatusBar = True
    bolStatusBar = Application.DisplayStatusBar
     
     Set objOutlook = CreateObject("Outlook.Application")
        
        Benutzername
        strRecipient = "ZP16 Verteilerliste"  ' (In Outlook angelegte Verteilerliste)
        strfile = "Guten Tag! Die Auswertung der Produktionskennzahlen ist wieder aktuell! MfG " & Benutzer
        
        Application.StatusBar = "Sende Datei " & strfile & " an " & strRecipient
        Set objOutlookMsg = objOutlook.CreateItem(olMailItem)
        With objOutlookMsg
           Set objOutlookRecip = .Recipients.Add(strRecipient)
           objOutlookRecip.Type = olTo
           .Subject = "Produktionskennzahlen"
           .Body = strfile
           objOutlookRecip.Resolve
          .Send
        End With
    
     Set objOutlook = Nothing
     Application.StatusBar = False
     Application.DisplayStatusBar = bolStatusBar
     
     MsgBox "Nachricht wurde gesendet!"

End Sub
 


Danke für jede Hilfe


Gruß Frederik




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

Betreff
Datum
Anwender
Anzeige
Re: Mail an mehrere Empfänger
13.06.2003 11:05:54
Willie

fürge diesen code nach .Subject = "Produktionskennzahlen"
ein und passe es ab wie du willst ich habe dir verschiedene Beispiel gleich mit gegeben

Gruß

Willie

.To = Sheets("Tabelle1").Cells(1, 2).Value
.CC = "hans@herber.de; max@mustermann.de
.BCC = "helfer@excel.com"

Re: Mail an mehrere Empfänger
13.06.2003 11:11:34
Frederik Fuhrmann

Super, danke!

Gruß
F.

Anzeige

139 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige