Opret og send mail med vedhæftet fil

Hej Kennith !
Hvilken applikation skal VBA'en afvikles fra ?

/Killer

Jeg kunne rigtig godt tænke mig at det kørete fra Outlook selv. Det skal laves af hensyn il in der ikke kan finde ud af at sende en vedhæftet fil og da det er den samme fil hvergagn så burde det kunne lade sig gøre...

Kommandoen til at vedhæfte en fil er
Call oItem.embedobject(1454, "", "h:\nrsmakro\sosdata")

Jeg har et script som sender mail via notes!!!!!!!!! men mon ikke du kan tilrette denne til Outlook

Programmet afvikles via en vbscript-program.

      Set oSess = CreateObject("Notes.NotesSession")
      Set oDB = oSess.GETDATABASE("", "")
      Call oDB.OPENMAIL
      Set oDoc = oDB.CREATEDOCUMENT
      Set oItem = oDoc.CREATERICHTEXTITEM("BODY")
      oDoc.Form = "Memo"
      oDoc.Subject = "Materiale fra kørsel"
      meddelelse = Meddelelse & chr(13) & chr(13) & "Statistik er vedhæftet"     
      oDoc.sendto = xsend(xxx)
      oDoc.Body = meddelelse
      oDoc.postdate = Date
      oDoc.visable = True
      Call oItem.embedobject(1454, "", "h:\rapporter\rapport1.txt")
      oDoc.SEND False
      Call odoc.save (True, False)
      Set oSess = Nothing
      Set oDB = Nothing
      Set oDoc = Nothing
      Set oItem = Nothing
      if err.number = 0 then
        else
          msgbox ("Fejl i mail, rapport er ikke sendt, kommer på din skærm !!")
          autSystem.shell "Notepad.exe","h:\rapporter\rapport1.txt"
          exit for
      end if
    next
    err.clear

Hej igen

Her er kommandoen til Outlook

Set oSess = CreateObject("Outlook.Application")

Jeg har ikke testet det, da jeg ikke har outlook på min pc.

Jeg har ikke lige haft tid til at kigge mere på det men takker for svaret og har givet point...