sende email fra excel2000

Skal det være fra excel2000 kan du ikke bruge Winsock.

http://www.vbsquare.com/demos/sendmail-demo/

Sub Send_Msg()
Dim objOL As object\'New Outlook.Application
Set objOL=Createobject(\"Outlook.Application\")

Dim objMail Object \'As MailItem

Set objMail = objOL.CreateItem(olMailItem)

With objMail
    .To = \"xx@xxx.dk\"
    .Subject = \"lønregnskab\"
    .Body = \"\" & _
        Format(Range(\"A1\").Value, \"$ #,###.#0\") & \"\"
    .Display
End With
Set objMail = Nothing
Set objOL = Nothing
End Sub

Dit problem er vel at du får en \"can\'t create activeX component\" eller noget i den stil?

Sagen er at din gamle workbook havde en \"reference\" til det gamle outlook-typelibrary. I denne reference står der et class-id (se i din windowsregistry), som refererer til det gamle typelibrary som ikke findes på din maskine længere.

Du kan enten gøre som i ovenstående kode (late-binding), dvs. at du med Createobject-funktionen først laver et opslag i registry for at finde et class-id der passer til \"Outlook.Application\", eller du kan bruge din eksisterende kode, hvor du vælger references, fjerner den gamle reference, markerer den nye reference og gemmer workbook\'en (early-binding).

Jeg ville nok anbefale første alternativ (late binding) da din applikation så vil fungere både under off 97 og off 2000.

/Jennemaan

Hvad var der galt med svaret...?

/Jennemaan

Jeg kunne ikke rigtig \"lure\" din forklaring og fik det til at virke med nedenstående
TAK anyway og undskyld jeg \"glemte\" dig

Sub Send_Msg()
Dim objOL As New Outlook.Application
Dim objMail As MailItem
Set objOL = New Outlook.Application
Set objMail = objOL.CreateItem(olMailItem)
With objMail
    .To = \"xx@xxx.dk\"
    .Subject = \"lønregnskab\"
    .Body = \"\"
    .Display
End With
Set objMail = Nothing
Set objOL = Nothing
End Sub

afsluttet