04. marts 2003 - 11:06Der er
15 kommentarer og 2 løsninger
Sende fil - Docmd.SendObject kan ikke ( eller kan den )
I en af mine større applikationer har jeg lavet det sådan at fejl bliver logget i en textfil, som jeg så gerne ville have mulighed for at brugeren automatisk kan sende til mig som en mail. Jeg har noget kode der kan bruges sammen med OutLook objectet, men da jeg lige så tit kommer ud for at folk kun bruger OutLook Express, hjælper det mig ikke rigtig. Så enten er jeg på jagt efter en måde at checke hvilket mailprogram folk bruger som standard og noget kode til Outlook Express der gør at jeg kan sende filen med den. Eller også skal jeg finde en metode at bruge SendObject så jeg kan smide en fil i halen på mailen.
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
hmmm hvis det er en text-fil ??? hvorfor så ikke "bare" sende den som en mail.. altså istedet for at vedhæfte den. ved godt det ikke er en optimal løsning men den virker da
Det var selvfølgelig en mulighed, men da filerne kan være store (hvis mange fejl i min app. :-) ) , vil jeg hellere vedhæfte. Ellers skal jeg have læst filen ind i en streng og så smidt det ind i SendObject kommandoen. Det kunne man vel også godt, eller .............. Jeg skulle måske så lave det så filerne bliver gemt i mindre bidder !
Hmm .... jeg må lige tænke lidt over denne og så vende tilbage.
hej hugo hvad med noget lign. det her MAPISession1.SignOn With MAPIMessages1 .SessionID = MAPISession1.SessionID .Compose .RecipAddress = "c.c@somewhere.com" .ResolveName .MsgSubject = "My Subject" .MsgNoteText = "My body" .AttachmentIndex = 0 .AttachmentPosition = 0 .AttachmentPathName = "c:\temp\test.txt" .Send End With MAPISession1.SignOff
Private Sub Email() Dim olapp As New Outlook.Application Dim olMail As Outlook.MailItem Dim myAttachment As Outlook.Attachments
Set olMail = olapp.CreateItem(olMailItem) Set myAttachment = olMail.Attachments myAttachment.Add "C:\text.txt" ' Or the filename as above olMail.Subject = “Testing a send of a message” olMail.Body = "Please see attached spreadsheet: " olMail.Recipients.Add “user@domain.com” olMailsend Set olMail = Nothing Set olapp = Nothing End Sub
husk 'Reference Microsoft Outlook Object Library (msoutl9.olb)
Grunde er at jeg tidliger har haft lidt problemer med at få Active X komponenter til at køre på kundernes computere :-) Jeg har som sådan ikke noget mod Active X - jeg bruger det også til ting 'inden for huset' hvor jeg har mulighed for at komme hurtigt rundt hvis det giver problemer.
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.
