Jeg har funnet løsningen likevel.
Ole T.
"Ole Thomas Sløgedal" <ole-t.s@online.no> skrev i nyhetsmeldingen:
poWdnaEa9aNEUtXWnZ2dnUVZ876dnZ2d@telenor.com ...
> Hei igjen!
>
> Dette funker 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
>>
>>
>
>
>