---

Hei!

Kan noen hjelpe meg med dette. Jeg har Outlook Express 6 på maskinen som
standard fra Windows XP og prøver å sende mail som vist under. Jeg tror jeg
må krysse av på Projekt References men finner ikke ut av hvilken jeg skal
krysse av på for å få dette til å virke. Kan noen hjelpe meg? Slik det er nå
så stopper den på første Set-linje.

Ole T.

Dim oOApp As Outlook.Application
Dim oOMail As Outlook.MailItem

Set oOApp = CreateObject("Outlook.Application")
Set oOMail = oOApp.CreateItem(olMailItem)

With oOMail
..To = "ole-t.s@online.no"
..Subject = "email subject"
..Body = "email message"
..Send
End With

---

Hei igjen!

Dette funket som bare rakkeren men jeg har et problem og det er at jeg får
opp en melding om at:

A program is trying to send mail using Item.Send
A program is trying to automatically send an e-mail message using a
Microsoft Visual Basic Application (VBA) command,
Item.Send, from within Microsoft Outlook. If you want this program to send
this message, click Yes. To stop the program,
click No. If you are unsure which program is sending the message or why the
message is being sent, you should click No
to help avoid the possible spread of viruses.
Note When this message is displayed, the Yes button is not available for
five seconds.

Kan noen hjelpe slik at jeg kan unngå denne meldingen. Kanskje det bare er
en instilling i Outlook. Hvis denne meldingen kommer opp
kan jeg ikke få sendt flere meldinger. Forstår jo at denne blokkeringen må
være på hos vanlige brukere men på egen maskin vil jeg ha det vekk.




> Dim oOApp As Outlook.Application
> Dim oOMail As Outlook.MailItem
>
> Set oOApp = CreateObject("Outlook.Application")
> Set oOMail = oOApp.CreateItem(olMailItem)
>
> With oOMail
> .To = "ole-t.s@online.no"
> .Subject = "email subject"
> .Body = "email message"
> .Send
> End With
>
>