Sepa Vorabinformation per eMail direkt in excel versenden

[Daniel Albert]

Hallo,

ich habe mal wieder eine technische Herausforderung für meine Excel Tabelle - Mittagsbetreuung. Da wir die Essensabbuchungen komplett umgestalten mussten, drückt nun die Europäische SEAP Vorgabe auch bei uns als Verein im Rücken. Die Essensabbuchungen sind fast jeden Monat unterschiedlich. Nun wollte ich auf ein Programm umschwenken das diese Automatisch generiert aber da gibt es wieder andere Probleme.

Nun wäre meine Idee diese emails direkt über Excel zu versenden da ja alle relevanten Daten in der Tabelle vorhanden sind. Dort sind die eMail Adressen der Eltern hinterlegt und in der jeweiligen Monatstabelle. Die Mandatsnummer ist ja ein leichtes noch zu integrieren.

Im Internet habe ich schon einmal gesucht und scheinbar ist so etwas möglich. Nun ist meine Überlegung entweder, wenn technisch nicht anders lösbar hinter jedem Beitrag einen Button oder ähnlichen um die eMail zu generieren oder einen Code der alle eMails direkt versendet.

Ist so etwas möglich und wenn ja wie`?

Ich habe wieder eine Mustertabelle erzeugt. In dieser ist der Monat Januar 2017 schon hinterlegt und im Zellbereich ab A576 liegen die Beiträge.

Kann mir bitte jemand dabei Helfen ?

Gruß Daniel

[Steffl]

Hallo Daniel,

Nun wäre meine Idee diese emails direkt über Excel zu versenden da ja alle relevanten Daten in der Tabelle vorhanden sind. Dort sind die eMail Adressen der Eltern hinterlegt und in der jeweiligen Monatstabelle. Die Mandatsnummer ist ja ein leichtes noch zu integrieren.

Im Internet habe ich schon einmal gesucht und scheinbar ist so etwas möglich. Nun ist meine Überlegung entweder, wenn technisch nicht anders lösbar hinter jedem Beitrag einen Button oder ähnlichen um die eMail zu generieren oder einen Code der alle eMails direkt versendet.

Ist so etwas möglich und wenn ja wie`?

Ich habe wieder eine Mustertabelle erzeugt. In dieser ist der Monat Januar 2017 schon hinterlegt und im Zellbereich ab A576 liegen die Beiträge.

Mal als Ansatz als einzelne Mail (würde mit einem Klick auf den Bereich AJ597:AJ641 gehen, wenn da kein Schutz drauf ist ) mit einem Rechtsklick und daher gehört der Code in die Tabelle Januar

Code:

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
  If Intersect(Target, Range("AJ576:AJ641")) Is Nothing Then
     MsgBox "Zelle " & Target.Address(0, 0) & " gedrückt. Name: " & Cells(Target.Row, 1)
     Cancel = True
  End If
End Sub

Bezüglich der Outlook-Geschichte lies hier.

[Daniel Albert]

Hallo, also ich habe mal den Code von dem Link eingefügt und nur den Cells Wert angepasst.

Ich bekomme aber folgende Fehlermeldung. Ich nutze Oulook 2016

[Steffl]

Hallo Daniel,

in deinem ersten Beitrag schreibst Du davon das das Ganze in der Zeile 576 beginnt. Jetzt sehe ich, das deine Schleife von der Zeile 5 beginnt. Jetzt habe die Vermutung das Du dich damit auf das Tabellenblatt 'aktive Mitglieder' bezieht. Nun die Frage: ist dieses Tabellenblatt aktiv bzw in diesem Tabellenblatt befindet sich der Code. Vermutlich nicht und daher erhälst Du die Fehlermeldung. Versuchs mal somit

Code:

.To = Worksheets("aktive Mitglieder").Cells(i, 41)

Das gilt auch für die nächsten Zeilen (.Body und .Subject)!

[Daniel Albert]

Guten Morgen,

nein ich habe es anders gemacht. Die jeweiligen MOnatstabellen "Januar 2017" werden ja aus der Vorlage erstellt. Diese Vorlage habe ich angepasst, siehe Anhang. Dort habe ich die wichtigen Felder wie eMail, Mandatsnummer per Sverweis verbunden. Die erste Zeile ist in AO5

[Daniel Albert]

Guten Abend, hat keiner eine Idee wie mir da geholfen werden kann ? Ich möchte ungern noch ein weiteres Programm kaufen, der Aufwand ist jetzt schon für ein Ehrenamt extrem hoch. Dafür muss es doch eine Lösung geben oder nicht?

[schauan]

Hallöchen,

ich kann mich erst mal nur Steffl anschließen. Ich habe mal einfach nur das Makro gestartet und in der Überwachung
Cells(i, 41).Value
angegeben. Dort steht bei mir jetzt "Leberkäse u. Semmel", ist als E-Mail-Adresse nicht unbedingt geeignet

Das Makro muss ja irgendwie gestartet werden. Ich habe allerdings beim ersten durchschauen der sichtbaren Blätter keinen Button gefunden. Es wird auch im Projekt von keinem anderen Makro aufgerufen. Wie startest Du es denn?

[Daniel Albert]

Guten Morgen,

wenn du meine letzte Datei öffnest siehst du in der Tabelle "Januar 2017" ab Zelle: Ao5 die Verlinkung zu den Punkten eMailadresse,Betreffe, Inhalt und Mandatsnummer. Diese Daten habe ich per Sverweis aus der Tabelle -aktive Mitglieder gezogen. Das Makro ist jeweils in der Tabelle hinterlegt. Besser wäre es in einem Modul, weiß aber nicht ob das geht.

Das Makro soll mit einem Klick wenn möglich alle 66 email also von Ao5 bis Ao70 erstellen.

Ich habe mich heute auch mit dem Thema befasst und hier im Forum folgenden Beitrag gefunden. 

http://www.clever-excel-forum.de/thread-...age-2.html

Ich habe ihn kurz getestet und Outlook öffnet sich nur komme ich nicht weiter bei der Umstellung des Codes.

    'Ermittlung der letzten Zeile in Spalte A
    zm = .Cells(Rows.Count, 1).End(xlUp).Row

     
    'Aufsetzen der Schleife
    For z = 41 To zm
        'Wenn das Datum in Spalte A <= Heute dann
        If .Cells(z, 1).Value <= Date Then

Ich will ja nicht die letzte Zeile sondern er soll in Ao5 beginnen und das nach unten 66 mal
Auch brauche ich keine Prüfung das Datum in Spalte A.


Wie kann ich das meinen Bedürfnissen anpassen ?

[schauan]

Hallo Daniel,

wenn Du feste Zeilenbereiche hast, brauchst Du die Prüfung nicht.


Also im Prinzip

Code:

    For z = 5 To 70 'Schleifendurchlauf = 66 x
        'Wenn das Datum in Spalte A <= Heute dann
        If .Cells(z, 1).Value <= Date Then

und statt der 1 dann die Spaltennummer von Ao

[Daniel Albert]

Hallo, also nun bin ich schon wieter. Die IF Funktioni habe ich komplett gelöscht und die eMail wird erstellt.

Ich bekomme aber keinen Zeilenumbruch hin.

Hyperlink = Hyperlink & "body=" & "Sehr geehrte Eltern," & vbNewLine & Text & Mandatsnummer & " abbuchen"


vnNewline funktioniert da nicht. Liegt an der Variable String ???