E-Mail Versand-Code ok?
02.06.2025 03:59:50
Thorsten
ich möchte ein größer Preisliste an Handelskunden senden. Auf Nachfragen, wäre schön, wenn man gleich aus der Datei versenden kann, wollte ich es diesmal einbauen. Habe aber von VBA keine Ahnung.
In meiner eigenen Dateien verwende ich nachstehenden Code, der bei mir auch funktioniert.
Trotzdem Frage: Kann man das so versenden oder hebt es euch die Hand an Kopf. :-)
Sub MailSenden()
Set MyMessage = CreateObject("Outlook.Application").CreateItem(0)
Application.ScreenUpdating = False
On Error GoTo Fehler
With MyMessage
.to = Sheets("PL").Range("F5").Value
.Subject = Sheets("PL").Range("AF4").Value
.body = Sheets("PL").Range("AF1").Value
.ReadReceiptRequested = False ' Lesebestätigung
.Display
End With
GoTo ende
Fehler:
MsgBox "Die E-Mail konnte nicht verschickt werden!" & vbLf & vbLf & _
"Vieleicht haben Sie kein MS Outlook!", vbInformation, "Achtung!"
ende:
End Sub
Klar ist, der Code fubktioniert eh nur bei Outlook.
Wie müsste eine Änderung aussehen, wenn Kunden Outlook (New) verwenden?
Für Info besten Dank vorab,
Liebe Grüße aus Markkleeberg
Thorsten
Anzeige