Sub MakroSendMail()
    ' Email an Adresse aus ActiveCell.Value senden:
    ' 1.) Parameterdatei erstellen
    Open "c:\pfad1\parameter.ini" For Output As #1
    Print #1, "[sendmail]" 'Parameterkopf
    Print #1, "from=absender@server.xy" 'Absender
    Print #1, "to=" & ActiveCell.Value  'Empfänger aus Excel-Sheet
    Print #1, "subject=Wichtiger Hinweis" 'Betreff
    Print #1, "bodyfile=c:\pfad\emailbody.txt" 'Datei mit Emailtext
    Close #1
    ' 2.) Email mit Easy-Mailing versenden
    Shell "c:\pfad2\easy-mailing.exe sendmail c:\pfad1\parameter.ini "
End Sub