Hallo,
ich will eine geöffnete Datei als Email versenden.
In der Hilfe habe ich folgendes gefunden:
ActiveWorkbook.Worksheets("Start").Select
Application.Dialogs(xlDialogSendMail).Show
Allerdings muss hier der Empfänger von Hand eingetragen werden.
Ein anderer Code setzt zwar den Empfänger und den Betreff; fügt aber nicht die Datei ein (Pfad ändert sich leider ständig):
Dim EmailEmpfänger As String, EmailBetreff As String
'Outlook wird geöffnet
Set myOlApp = CreateObject("Outlook.Application")
'Fenster für neue Mail wird geöffnet
Set MailItem = myOlApp.CreateItem(olMailItem) ' opens new email
EmailEmpfänger = "meine@email.de"
EmailBetreff = "Datenbankeintrag"
'Empfänger der Mail wird in das Adressfeld "An:" geschrieben
Set myRecipient = MailItem.Recipients.Add(EmailEmpfänger)
'Betreff der Mail wird in das Feld "Betreff:" geschrieben
MailItem.Subject = EmailBetreff
'Wenn Anlage angehängt werden soll, in nächster Zeile
'das Apostroph entfernen.
Set myAttachments = MailItem.Attachments.Add("Pfad&Dateiname")
MailItem.Send 'Email wird gesendet
Was müsste ich hier ändern? Oder hat vielleicht jemand etwas passendes zur Hand?
Gruss und danke schonmal
MichiM