Prøv denne kode:
Private Sub Form_Load()
Dim indhold As String
Dim olApp As Object
Dim oItem As Object
indhold = "Hej med dig. Hej med dig. Hej med dig. Hej med dig. Hej med dig. Hej med dig. Hej med dig. Hej med dig. Hej med dig. Hej med dig. Hej med dig. Hej med dig. Hej med dig. Hej med dig. Hej med dig. Hej med dig. Hej med dig. Hej med dig. Hej med dig. Hej med dig. Hej med dig. Hej med dig. Hej med dig. Hej med dig. Hej med dig. Hej med dig. Hej med dig. Hej med dig. Hej med dig. Hej med dig. Hej med dig. Hej med dig. Hej med dig. Hej med dig. Hej med dig. Hej med dig. Hej med dig. Hej med dig. Hej med dig. Hej med dig. Hej med dig. Hej med dig. Hej med dig. Hej med dig. Hej med dig. Hej med dig. Hej med dig. Hej med dig. Hej med dig. Hej med dig. Hej med dig. Hej med dig. Hej med dig. Hej med dig. Hej med dig. Hej med dig. Hej med dig. Hej med dig. Hej med dig. Hej med dig. Hej med dig. Hej med dig. Hej med dig. Hej med dig. Hej med dig. Hej med dig. Hej med dig. Hej med dig. Hej med dig. Hej med dig. Hej med dig. Hej med dig. Hej med dig. Hej med dig. Hej med dig. Hej med dig. Hej med dig. Hej med dig. Hej med dig. Hej med dig. Hej med dig. Hej med dig. Hej med dig. Hej med dig. Hej med dig. Hej med dig. Hej med dig. Hej med dig. Hej med dig. Hej med dig. Hej med dig. Hej med dig."
indhold = Left$(indhold, 160)
Set olApp = CreateObject("Outlook.Application")
Set oItem = olApp.CreateItem(0)
With oItem
.Subject = "Test"
.To = "min@addresse.dk"
.Body = indhold
.Send
End With
End SubDen forkorter og sender variabel indhold til "min@addresse.dk" via outlook.
Indlæg senest redigeret d. 02.11.2007 14:35 af Bruger #11573