Meerdere bijlagen

Status
Niet open voor verdere reacties.
J

Japsur

Gebruiker
Lid geworden
9 apr 2004
Berichten
650
Hallo,

Mbv een macro (object verzenden) kan ik outlook laten openen en er 1 bijlage in mee laten verzenden. Nu wil ik meerdere rapporten als bijlage meesturen, maar ik weet niet hoe dat moet? Geautomatiseerd als het kan.
Iemand een idee?
Alvast bedankt.
 
Jawel, maar het lukt niet.
en zekere niet met macro's.

Meerdere rapporten meegeven is onmogelijk.

Wat wel mogelijk is, is meerdere bestanden als bijlagen meesturen.
Maar dan zou je eerst de rapporten moeten opslaan als bestand.
En via VBA kan je dit versturen.


Groetjes,

Lode
 
Laatst bewerkt:
hmz, in ieder geval bedankt jongens. :thumb:
We komen nu al weer achter een beperking van access.
Dan zal ik een andere methode moeten gaan vinden!
 
Hallo,

zoals ik al schreef is het mogelijk in VBA.

Maak van elk rapport een bestand.
Plaats op een formulier een drukknop en bij de Gebeurtenis Bij Klikken van deze knop
plaats je de volgende code:

Private Sub cmdEmail_Click()
'Verwijzing aanzetten naar Microsoft Outlook 11.0 Object Library
Dim oul As Outlook.Application
Dim mli As Outlook.MailItem
Dim atts As Outlook.Attachments

Set oul = GetObject("", "Outlook.Application")
Set mli = oul.CreateItem(olMailItem)

mli.To = " " ' Geef hier het adres van bestemmeling in
mli.Subject = "Access Reporten"

mli.Body = "Dit is een test voor meerdere attachementen."

Set atts = mli.Attachments
atts.Add "C:\doc1.doc" 'Geef hier volledig pad naar bestand
atts.Add "C:\doc2.doc"

mli.Display

End Sub

Je kan eventueel nog bestanden toevoegen, in de code moet je nog bestemmeling aanpassen.
cmdEmail is de naam van je drukknop

Groetjes,
Lode
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan