08. december 2005 - 14:28Der er
12 kommentarer og 1 løsning
Automatisk vedhæftning til mail.
Hej alle sammen. Er ved at bygge videre på en database, som jeg bruger til at vedhæfte filer og sende videre, til de adresserede som skal have dem. Databassen virker således at man finder frem til filen via. gennemse, hvor efter man trykker på den fil som skal vedhæftes, filen kommer så over til en mail hvor alt står, og er klar til at sendes ud.
(filen som skal sendes ud hedder altid den samme, og den er altid i den samme mappe)
Det jeg gerne vil have lavet om, er at jeg kan finde personen inde i min database, og bare trykke på en kommandoknap, som gør at den søger efter filen i mappen, som skal vedhæftes, sender den matchede fil over til mailen, som der efter sender den af sted.
Denne side indeholder artikler med forskellige perspektiver på Identity & Access Management i private og offentlige organisationer. Artiklerne behandler aktuelle IAM-emner og leveres af producenter, rådgivere og implementeringspartnere.
Slettet bruger
08. december 2005 - 14:30#1
Her er den del jeg har nu....
Private Sub Send_Click() Dim sTil As String Dim sTilcc As String Dim sEmne As String Dim sTekst As String Dim sUge As String Dim sBlad As String
Hej Mugs Har set lidt på dit svar. Og vil gerne vide om det muligt at indføre en Function under en kommandoknap. Eller hvordan det virker, er ikke sadt så meget inde under funktioner. Har arbejdet en del under Private Sub, men vil da gerne vide hvordan det virker, selføgelig kun hvis du har tid.
Du kan sagtens indsætte en function i en kommandoknap. Du er statter blot ordet sub med function.
Uddrag fra hjælpen:
Variables declared using the Public statement are available to all procedures in all modules in all applications unless Option Private Module is in effect; in which case, the variables are public only within the project in which they reside.
Private variables are available only to the module in which they are declared.
D.v.s. at hvis du laver en public function, kan denne kaldes fra alle formularer i din db, hvorimod dine private variabler kun er til rådighed i det modul hvori de er erklæret.
Nu er det lang tid siden jeg har arbejdet med det spørgsmål jeg refererer til, og jeg kan ærlig talt ikke huske, hvad det egentlig handlede om.
this isnt tested, and it requires a reference to Oulook
Function SendMail()
Dim objOl As New Outlook.Application Dim objPost As MailItem Dim vedhæftet As Attachments Dim sTil As String Dim sTilcc As String Dim sEmne As String Dim sTekst As String Dim sUge As String Dim sBlad As String
Har ikke lige haft så meget tid til at se på problemet, har haft lidt travlt. Men har rodet lidt med DoCmd.SendObject linien, som nok er den som jeg skal ændre.
Har lidt tid til overs i dag, kunne ikke helt få det til at virke, men prøver lige selv lidt inu.
giver en status raport hved 12 tiden. :-) Sorry det har taget så langt tid med at svare igen...
Synes godt om
Slettet bruger
15. december 2005 - 11:36#8
Har et lille problem Har siddet og pillet lidt med den siste linie i suben har de linier herunder som jeg gerne vil kombinere.
(A_ADD "P:\adressevask\Postens Adressevask.doc") som er filen som skal vedhæftes med (DoCmd.SendObject , "", "", sTil, sTilcc, "", sEmne, sTekst, , "") som er mailen som skal sendes ud.
stobberup>I'm not at all sure if its possible to attach a file in code when you use DoCmd.SendObject thast why I suggest you use Outlook
Synes godt om
Slettet bruger
16. december 2005 - 11:17#10
Hey terry Er kommet en del længere med projektet. Men kan ikke helt få subject, Body og sendt til at virke...
Public Function SendMessage()
Dim sTil As String Dim sEmne As String Dim sTekst As String Dim sBlad As String Dim Person As Outlook.Recipient Dim vedhæfte As Outlook.Attachment Dim Mail As Outlook.Application Dim Item As Outlook.MailItem
hey Terry Kunne ikke helt overskuge dit eksempel i starten. Så jeg ville lige prøve at se om der var noget lidt mere overskugeligt. Men jo mere jeg blev sat ind i det, jo mere gav dit eksemple mening. Så det endte med at jeg til sidst godt kunne bruge det til at få det til at virke.
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.
