19. januar 2007 - 09:05Der er
4 kommentarer og 1 løsning
Opret og send mail med vedhæftet fil
Hej jeg har brug for at lave et VBA script der kan åbne en ny e-mail udfylde emne og adressefeldt og sidst men vigtigst vedhæfte en foruddefineret fil.
Kunne man oveni købet få en knap i værktøjslinien der startede makrien så ville det være helt suverænt.
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
Jeg har ikke lige haft tid til at kigge mere på det men takker for svaret og har givet point...
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.