Thema Datum  Von Nutzer Rating
Antwort
Rot Massenmail aus Excel heraus
 02.12.2016 15:58:37 Julian
NotSolved

Ansicht des Beitrags:
Von:
Julian		 Datum:
02.12.2016 15:58:37		 Views:
1121		 Rating:
     
Antwort:
  Ja
Thema:
Massenmail aus Excel heraus
Hi Leute, bevor ich meine Sachlage schildere kurz der Hinweis: Ich = blutiger Anfänger in Sachen VBA!!! :) Hier meine derzeitige Lage: Ich habe mir aus dem Internet einen VBA-basierten Code geholt mit welchem man einen gewissen Zellbereich in denen mehrere E-Mail Adressen hinterlegt sind heranzieht und diese als Empfänger in die über einen/einer Button/Schaltfläche generierte Mail übernimmt. Die aktuelle Excel Mappe wird ebenfalls, nach Aufforderung diese vorher zu speichern, als Anhang hinzugefügt. Derzeit bestehen 3 solcher Buttons welche jeweils andere Empfänger haben. Jetzt zu meiner 1. Frage: Ist es möglich, einen Code einzubauen welcher den Benutzer dazu zwingt die E-Mail-Buttons in einer gewissen Reihenfolge zu betätigen, also: Button 3 kann erst genutzt werden wenn Button 2 + 1 genutzt wurden und Button 2 erst wenn Botton 1 genutzt wurde. Frage 2: Kann ich dem Benutzer iwie eine Rückmeldung geben (vielleicht durch farbliche Markierung des Buttons) wenn er den Button aktiviert und die Mail versendet hat? Soviel von mir, ich danke euch vorab schon einmal für die evtl. Hilfe ;) Gruß Julian PS: Hier mal kurz der Code: Private Sub CommandButton1_Click() Dim MyMessage As Object, MyOutApp As Object Dim Qe As Integer Dim AWS As String 'Testen ob die aktuelle Mappe schon gespeichert wurde If ThisWorkbook.Saved = False Then 'Die letzten Änderungen wurden noch nicht gespeichert Qe = MsgBox("Diese Mappe wurde noch nicht gespeichert, und kann nicht versandt werden!" _ & Chr$(13) & "Soll die Datei gespeichert werden?", vbInformation + vbYesNo, "Sendefehler") If Qe = vbNo Then 'Abbruch durch Benutzer MsgBox "Sendevorgang abgebrochen" Exit Sub Else 'Prüfen ob die Datei schon mal gespeichert wurde If Right(ThisWorkbook.Name, 3) <> "xls" Then 'Nein > Speicherdialog aufrufen Application.Dialogs(xlDialogSaveAs).Show Else 'Speichern ThisWorkbook.Save End If End If End If 'Aktive Arbeitsmappe wird als mail gesendet 'Übergabe des Mappennames an die Variable AWS = ThisWorkbook.FullName 'Outlook Object erstellen Set MyOutApp = CreateObject("Outlook.Application") 'Outlook Nachricht erstellen Set MyMessage = MyOutApp.CreateItem(0) With MyMessage 'Empfänger .To = "" 'Betreff .Subject = "" .Attachments.Add AWS 'Hier wird ein normaler Text erstellt .Body = "" 'Hier wird eine HTML Mail erstellt 'Dies kann zu Problemen führen, wenn der Empfänger 'nur TEXT Dateien empfangen darf. '.HTMLBody = "Das ist ein Test." & vbCrLf & "Bitte ignorieren." 'Hier wird die Mail nochmals angezeigt .Display 'Hier wird die Mail gleich in den Postausgang gelegt und gesendet '.Send End With 'Outlook schliessen 'Variablen leeren Set MyOutApp = Nothing Set MyMessage = Nothing End Sub

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Massenmail aus Excel heraus
 02.12.2016 15:58:37 Julian
NotSolved