Das geht etwa so:



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 , 28 mal gelesen