Sendobject - attachment

Denne omdanner en forespørgsel til en tekstfil og vedhæfter den til din e-mail. Kræver en reference til OutLook:


Dim OutL As Outlook.Application
Dim Item As MailItem
Dim Receiver As Recipient

DoCmd.TransferText acExportDelim, ";", "Forespørgsel1", "C:\dinfil.txt", True

    Set OutL = New Outlook.Application

    Set Item = OutL.CreateItem(olMailItem)
   
    With Item

        .Subject = "Mails"
        .Body = "Sådan sender man mails vha VBA"
        .FlagStatus = olFlagMarked
        .Attachments.Add "C:\dinfil.txt"
        .Recipients.Add "EMAILADRESSE"
             
        .Display
    End With
    Set Item = Nothing

http://www.eksperten.dk/spm/38750

'problemet' i din løsning er jo at det laver en reference til Outlook og jeg ved med sikkerhed at mindst 1 af stederne hvor min applikation skal bruges benyttes der Outlook Express og så har jeg jo balladen :-)

Åbenbart ikke muligt sådan bare lige så jeg må ud og handle.