Standaard bijlage mee zenden

Status
Niet open voor verdere reacties.
J

JWest

Gebruiker
Lid geworden
19 dec 2006
Berichten
18
Hallo,

Is er een mogelijkheid om naast en standaard handtekening ook standaard een .pdf bestand als bijlage mee te verzenden?

Zo ja, hoe?

Alvast bedankt.
 
Ja, ok. Dan voeg gewoon een bijlage toe. Maar het is juist de bedoeling om die bijlage standaard toegevoegd te hebben bij elk nieuw mailtje, net zoals een handtekening.
Een handtekening hoeft ook maar één keer ingesteld te worden en vervolgens staat hij standaard in elk nieuw mailtje. Dit moet ook gebeuren met m'n pdf bestand.
 
Dit zou je kunnen doen in het Item_send event van thisoutlooksession in de VBA editor.
het argument Item is namelijk het mailtje dat verstuurd gaat worden.
Door kan je op dat moment nog een attachment aan toe voegen.
 
Ik ben alleen niet zo heel erg thuis in VBA. Zou je me misschien een stukje op weg kunnen helpen?
 
Google eens naar VBA en CDO of VB en CDO
er zijn veel voorbeelden te vinden.
 
Ik ben ondertussen al een klein beetje verder gekomen (denk ik)

Ik heb dit:

Sub bijlage()
Dim oApp As Outlook.Application
Dim oNS As Outlook.NameSpace
Dim oMail As Outlook.MailItem

Set oApp = CreateObject("Outlook.Application")
Set oNS = oApp.GetNamespace("MAPI")
oNS.Logon

Set oMail = oApp.CreateItem(olMailItem)
With oMail
.Attachments.Add "c:\testfile.pdf"
.Send
End With
End Sub


Ik krijg alleen een fout melding. Ik moet een ontvanger specificeren. Dit is echter niet altijd dezelfde ontvanger. Hoe geef ik dit aan?

Hoe kan ik dit trouwens toevoegen aan een mailtje. Het bestand moet namelijk bij elk willekeuig mailtje meegezonden worden. Is het eventueel mogelijk dat ik een aparte knop krijg om het mailtje met bijlage te verzenden, naast de standaard knop om een "gewoon mailtje te verzenden?"
 
Code: 
With item
.Attachments.Add "c:\testfile.pdf"
End With

Zet dit deel eens in het Send event van thisoutlooksession
volgens mij is dat al genoeg.
 
Ik heb nog even verder geprobeerd, maar het wil niet lukken.
 
even getest met een bestandje op mijn C schijf... het werkte prima:

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)

With Item
.Attachments.Add "c:\XXXX.log"
End With

End Sub
 
Kan dit ook met een knop gemaakt worden. Dat ik als het ware de normale verzend knop heb om een mail zonder bijlage te versturen en een eigen gemaakte knop om te verzenden met bijlage.

Als ik voor de bovenstaande oplossing ga, loopt m'n mailbox zo snel vol.
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan