Guten Tag
Ich möchte gerne per Mausklick auf eine Zelle oder Schaltfläche die offene Datei versenden als Anlage.
Also der Befehl sollte automatisch ablaufen und die Email mit Anlage öffnen.
Geht das…?
Vielen Dank für Eure Hilfestellung!
Freundlich grüsst
Pete
Geht das…?
ja, allerdings nicht so, dass gleich ein vorgefertigter Empfänger mitsamt Betreff drin steht…
Sub Makro1()
Application.Dialogs(xlDialogSendMail).Show
End Sub
Du musst dann halt entweder mit Worksheet_Change abfangen welche Zelle geklickt wurde und daraufhin steuern…
Also mit Button ist es vermutlich einfacher 
Herzlichen Dank!! Das ging ja turboschnell!!
Nun, die Email Adresse und den Betreff bringe ich manuell rein - ausser, da hat jemand noch DIE Idee/Lösung dazu.
Ich bedanke mich bei Münchens TopFreak!!
Gruss - Pete
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
*smile*
also bei DEM Kompliment musste ich natürlich weitersuchen
Sub mail()
Application.Dialogs(xlDialogSendMail).Show „Empfänger“, „Betreff“
End Sub
funzt auch bei mir
Vielen Dank - stell Dir vor - hab ich gerade auch rausgefunden - da ich VB nicht kenne (stöhn), musste ich üben, wie ich die Argumente reinbekomme (mit/ohne Klammern, Komma, Anführungszeichen, Punkt…).
Na ja, hab was gelernt und von Dir bestätigt bekommen - danke!
Nur eines fuxt - es steht in Englisch „recipients“, was für mich in der Mehrzahl ist. Nur, das geht nicht, weder mit ; noch mit , noch mit nichts dazwischen. Der tutet da ein Zeichen rein, das für die Adresserkennung im Email nicht taugt. Löscht man den Leerschlag nach dem ; manuell, dann funktionierts mit der Adressprüfung…
Na ja, dann halt nur an einen Empfänger, Stellvertreter hat halt Pech…
Gruss und DANKE!
Pete
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]