Public Function HTMLMail( _
Optional SendTo = "Spotlight@Kraasch.Net", _
Optional Subject = "Test")
Dim olItem As Outlook.MailItem, olApp As New Outlook.Application
Set olItem = olApp.CreateItem(olMailItem)
With olItem
.To = SendTo 'Adresse
.Subject = Subject 'Betreff
.HTMLBody = "<a href=""http://www.spotlight.de/"">" & _
"<img src=""http://spotlight.de/pic/logos/spot_hom.gif"" " & _
" width=""150"" height=""75"" border=""0"" alt=""Klick mich!""></a>"
.Display
' oder gleich senden:
' .Send
End With
Set olApp = Nothing: Set olItem = Nothing
End Function
Gruß aus dem Norden
Reinhard
Bitte immer die Access-Version angeben
geschrieben von Reinhard Kraasch , 03.09.2003, 21:35 Uhr , 26 mal gelesen