Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema InputBox
BildScreenshot zu InputBox InputBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen

Versand an mehrere Empfänger ... | Herbers Excel-Forum


Betrifft: Versand an mehrere Empfänger ... von: Didi M.
Geschrieben am: 16.11.2009 14:05:36

Hallo,

nochmal danke für die schnellen Antworten !! Echt spitze.

Man bekommt die Informationen aber immer nur Etappenweise (geht mir zumindest so).

Die Tabelle mit den Werten siehe meine letzte Frage
soll jetzt nicht "nur" an eine E-Mail gesendet werden, sondern an eine von derzeit dreien (könnten zukünftig auch mehr werden). Kann man das in folgendem Makro irgendwie hinbiegen ?

Sub Blatt_senden()
  Sheets("Versand").Copy
  With ActiveSheet.UsedRange
    .Value = .Value
  End With
  ActiveWorkbook.SendMail "E-Mail Adresse", "Auftrag"
  Application.DisplayAlerts = False
  ActiveWindow.Close
  Application.DisplayAlerts = True
End Sub

Da immer nur an eine E-Mail Adresse werden soll, wäre es möglich dieses Makro jeweils mit einer anderen E-Mail Adresse versehen einem eigenen Button zuzuweisen ??

Vorab schon mal vielen Dank.

Gruss Didi

  

Betrifft: AW: Versand an mehrere Empfänger ... von: Rudi Maintaire
Geschrieben am: 16.11.2009 14:12:54

Hallo,

Private Sub CommandButton1_Click()
  Blatt_senden "name1@test.de"
End Sub

Private Sub CommandButton1_Click()
  Blatt_senden "name2@test.de"
End Sub

Private Sub CommandButton1_Click()
  Blatt_senden "name3@test.de"
End Sub

Sub Blatt_senden(strAdresse As String)
  Sheets("Versand").Copy
  With ActiveSheet.UsedRange
    .Value = .Value
  End With
  ActiveWorkbook.SendMail strAdresse, "Auftrag"
  Application.DisplayAlerts = False
  ActiveWindow.Close
  Application.DisplayAlerts = True
End Sub

Gruß
Rudi


  

Betrifft: AW: Versand an mehrere Empfänger ... von: Jens
Geschrieben am: 16.11.2009 14:15:49

Hallo

Sub Blatt_senden()
Dim Empfaenger As String
  Sheets("Tabelle1").Copy
  With ActiveSheet.UsedRange
    .Value = .Value
  End With
  Empfaenger = InputBox("Bitte Email-Adresse eingeben...")
  ActiveWorkbook.SendMail Empfaenger, "Auftrag"
  Application.DisplayAlerts = False
  ActiveWindow.Close
  Application.DisplayAlerts = True
End Sub
Hier kannst Du mit dem gleichen Makro jeden Empfänger einzeln über die Inputbox eingeben.

Gruß Jens


  

Betrifft: AW: Versand an mehrere Empfänger ... von: Didi M.
Geschrieben am: 16.11.2009 14:35:15


Danke Rudi, Danke Jens.

Ich werde wohl doch auf die manuelle Eingabe der E-Mail Adresse ausweichen, da es egal ist wie viele Empfänger nun dch noch dazu kommen.

Trotzdem noch mal ein Lob an beide, sowohl wegen der Reaktionszeit wie auch der Qualität der Antwort !!

TOP !!!


  

Betrifft: Nachfrage von: Jens
Geschrieben am: 16.11.2009 14:59:59

Hallo Didi

Warum willst Du eigentlich an jeden Epfänger die Mail einzeln versenden? Hat das einen bestimmten Grund?

Wenn die Empfänger in einer Liste stehen, kannst Du diese auch per Schleife abarbeiten. Oder wenn nicht jeder sehen soll, an wen die Mail versendet wird, dann einfach als Empfänger Deine eigene Mail-Adresse und in den BCC-Verteiler die anderen Empfänger eintragen. Diese sehen dann nicht, an wen die Mail gegangen ist.

Gruß aus dem Sauerland

Jens


  

Betrifft: AW: Nachfrage von: Didi
Geschrieben am: 19.11.2009 17:32:43

Hallo Jens,

sorry, hab Deine Nachfrage erst jetzt gefunden, deshalb kommt meine Antwort so spät.

Es handelt sich dabei um interne Aufträge die per Mail geschickt werden sollen. Da bisher "nur" drei Stellen mit mobilen Geräten für Internet ausgestatten sind, sind es (bisher) eben nur drei Mail Adressen an die es gesendet wird.

Um das Risiko zu verringern einen Auftrag an einen falschen Empfänger zu senden und den ganzen Ablauf durcheinander zu schmeissen habe ich eben die Lösung mit der manuellen Eingabe der Mailadresse gewählt.

Viele Grüsse
Didi


  

Betrifft: Ok, danke Dir für die Rückmeldung (oT) von: Jens
Geschrieben am: 19.11.2009 17:58:31




Beiträge aus den Excel-Beispielen zum Thema "Versand an mehrere Empfänger ... "