none
Makro Emailversand mit Bedingung

    Frage

  • Hallo zusammen,

    vllt kann mir hier jemand helfen...

    Ich arbeite mit einer große Excelliste und ich brauche ein Makro für automatischen Emailversand.

    Die Emailadressen sind in der Spalte L; Reminderemail soll an Spalte N+O

    Name in der Spalte D ( für Anschrift: Sehr geehrte Frau + Spalte D)

    Bedingung ist in der Spalte G ( wenn G= "nein" dann Emails verschicken an L bzw. N&O)

    Pro Monat gibt es eine Liste; man muss also jedes Mal Monat richtig eingeben.

    Kann mit jemand paar Tipps geben?

    Ich kenne mich nicht so gut mit VBA aus.. 

    Vielen Dank im Voraus!

    LG

    Rafaela



    • Bearbeitet Rafaelafin Mittwoch, 16. Mai 2018 08:30
    Mittwoch, 16. Mai 2018 08:21

Alle Antworten

  • Hi Rafaela,

    wo genau ist dein Problem, beim Mail-Versand, die Bedingungen in den Spalten abzufragen, … ?

    Zum Versand gibt es viel im Netz. zum Beispiel: Link 

    oder auf die schnelle:

    Sub AuswahlAlsEMailVersenden()
    Dim Empfänger As String
    Dim Bereich As Range
        
        'Emailempfänger hinterlegen 
        Empfänger = "DeineMailadresse@WhatEver.com" 'bitte ergänzen/ändern 
        
        'Auswahl der zu versendenen Spalten über eine Inputbox. Kann/muss ggf. angepasst werden 
        Set Bereich = Application.InputBox("Wählen Sie den Bereich aus, den Sie senden möchten", Type:=8)
        'Kopieren des zu sendenden Bereichs 
        Range(Bereich.Address).Copy
        'Öffnen einer neuen Mappe 
        Workbooks.Add
        'kopierten Bereich einfügen 
        ActiveSheet.Paste
        'Speichern als "Anhang.xls" 
        ActiveWorkbook.SaveAs "Anhang.xls"
        '"Email senden" Dialog wird angezeigt mit oben definiertem Empfänger und Anhang 
        Application.Dialogs(xlDialogSendMail).Show _
        Empfänger, " Erinnerung! Kontrolle fällig von Nummer blabla..."
    
    End Sub

    Was soll den versendet werden?

    Die Spalten kannst du mit Schleifen durchsuchen.

    Wenn du schon etwas hast, zeig doch mal. Wenn du nicht weiterkommst, meld dich wieder..

    Gruß


    Freiberufler im Bereich Softwareentwicklung Von der PLC und Robotik zu VB.NET & C#, vorrangig WPF und UWP

    Mittwoch, 16. Mai 2018 10:38