Email og outlook

Nedenstående sender en mail med et attachment, du skal bare sætte en reference til under menuen Project -> References, til det objekt der hedder Microsoft Outlook 9.0 Object Library, det er version 9.0 hvis du bruger Office 2000.

--------------
Private Sub Command1_Click()
Dim o As Outlook.Application
Dim NewMail As MailItem
Dim NewAttachment As Attachment
Dim newAttachments As Attachments
Set o = New Outlook.Application

Set NewMail = o.CreateItem(olMailItem)
Set newAttachments = NewMail.Attachments
Set NewAttachment = newAttachments.Add(\"c:\\data\\logo.jpg\")

With NewMail
    .To = \"XXXX@XXXXX.dk\"
    .Subject = \"Test\"
    .Body = \"Mere test\"
    .Send
End With

Set o = Nothing
Set NewAttachment = Nothing
Set newAttachments = Nothing
Set NewMail = Nothing
End Sub

--------------------

er det muligt at få den til at \'Sende/hente\' i oullok direkte?? så den selv sender mailen?

kigger på det i morgen

jeg får en fejl på


o As Outlook.Application

user type not defined

lukker