AW: Email Programm aufrufen
08.03.2005 22:56:38
Manfred
Hallo eric,
probiere mal folgendes:
1. Damit man auf die Objekte in Outlook zugreifen kann muß man die
"Microsoft Outlook V11 Object library" (Office 2003) aktivieren.
Im Visual Basic Editor unter Verweise diesen Eintrag suchen und mit einem Haken
davor aktivieren. Bei älteren Officeversionen ist die Variantennummer (hier V11)
entsprechend anders.
2. Kopiere folgenden Code in den Visual Basic Editor und vergebe gültige Email-adressen
und führe in aus
Sub Mail()
Dim ol, neumail, empfänger
Set ol = CreateObject("Outlook.Application")
Set neumail = ol.CreateItem(olMailItem)
With neumail
.Recipients.Add "vorname1.nachname1@t-online.de"
.CC = "vorname2.nachname2@aol.de"
.Subject = "Testmail"
.Body = "Diese mail wurde von einem Programm verschickt"
' .Attachment.Add Source:="dateiname", DisplayName:="Mein Anhang"
.Send
End With
End Sub
Hast du mehrere Empfänger so kannst du einfach die
Anweisung .Recipients.Add einfach entsprechend oft wiederholen
.Subject ist dann der text im Betreff
.CC enthält die E-mail-adressen die eine Kopie bekommen sollen
Auch diese Anweisung kann entsprechend oft wiederholt werden
.Body enthält den Text im Naxchrichtenfenster
Dateianhänge kann man über folgende Anweisung programmieren:
Objekt.Attachment.Add Source:="dateiname", DisplayName:="Mein Anhang"
Gruß Manfred