Antwort von
nach 5 Stunden
hilfreich
so geht´s sogar mit Attachments...
Hallo, das geht ganz einfach mit Outlook:
Option Explicit
Private Sub Command1_Click()
Dim objOutlook As Outlook.Application
Dim objMailItem As Outlook.MailItem
Set objOutlook = New Outlook.Application
Set objMailItem = objOutlook.CreateItem(olMailItem)
With objMailItem
.To = "[E-Mail-Adresse entfernt]" 'recipient's address
.Subject = "testmail" 'subject box content
.Body = "email message" ' message goes here
.Attachments.Add ("C:\boot.ini") ' attach any files here
.Send
End With
Set objMailItem = Nothing
Set objOutlook = Nothing
End Sub
Viel Spaß...
ZoMbiE
weiss jemand wie ich folgendes realisieren kann. Wenn man auf
eine Schaltfläche klickt, soll die DFÜ verbindung aufgebaut
werden und sich automatisch das auf dem Rechner installierte
Mail program aufrufen ( z.Bsp. Outlook)
Das mit der DFÜ verbindung habe ich hinbekommen, aber wie
bekomme ich das hin das sich das mailproggi aufruft und
automatisch die Email addi, einen vordefinierten Text, sowie
den Betreff einträgt?
Für eure Hilfe bedanke ich mich schon im voraus.
