[Word 2k3 VBA] Script voor verzenden als bijlage *

[Fuske]

Beste tweakers,

Ik ben op zoek naar een script wat het volgende moet kunnen:

• Actief document toevoegen als bijlage aan een mail en daarna kunnen weergeven.
• E-mailadres invullen
• Onderwerp invullen
• Body invullen

Onderstaand script werkt, echter het belangrijkste(de .doc toevoegen als bijlage werkt niet) de andere punten werken wel.

VBScript: mail

 
Sub Mail_document_Outlook_1()
'Working in 2000-2007
'This example send the last saved version of the Activeworkbook

    Dim OutApp As Object
    Dim OutMail As Object
  
    Set OutApp = CreateObject("Outlook.Application")
    OutApp.Session.Logon
    Set OutMail = OutApp.CreateItem(0)
  
    On Error Resume Next
    With OutMail
        .To = "[e-mail]"
        .CC = ""
        .BCC = ""
        .Subject = "harry"
        .Body = "Voeg hier uw eventuele extra informatie zoals foto´s en dergelijke toe."
        .Attachments.Add ActiveDocument.FullName
        .Display
    End With
    On Error GoTo 0
  
    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub

Iemand een idee??
Helaas zelf niet veel verstand van VBscript

[F_J_K]

...
This example send the last saved version of the Activeworkbook
....
Helaas zelf niet veel verstand van VBscript

offtopic:
Ten eerste: dit heeft niets van doen met VBScript (ik zal de topictitel dan ook even aanpassen naar VBA).

Ten tweede: doe het dan niet met VBA, of zorg dat je er verstand van krijgt. Blind copypasten is niet iets dat zorgt voor minder crappy code in de wereld

Anyway; [google=word vba send as attachment] -> derde hit is http://word.mvps.org/FAQs/InterDev/SendMail.htm

Aanpassen naar wens.

[ Voor 12% gewijzigd door F_J_K op 07-10-2008 11:33 . Reden: vbscript ]

[Fuske]

Deze had ik inderdaad gevonden, maar krijg toch echt een compileerfout

offtopic: Bij tweakers gaat het toch ook om kennis uit te delen?

[F_J_K]

[smallDat is precies wat ik bedoel. Het gaat inderdaad om kennis delen (wat tweewegverkeer is), niet om hapklare oplossingen. Het grote gevaar van kopieren zonder snappen is dat het op een gegeven moment gruwelijk fout gaat en je je document kwijt bent [/small]

Maar goed, we denken inderdaad graag mee.

een compileerfout

Ik heb 'em niet geprobeerd (en ga het hier ook niet proberen): welke code; welke melding; waar en waarom gaat het precies fout?

[JohnD]

Heb je wel je document al opgeslagen?

Hier werkt je code wel maar dan moet ik m'n testbestand eerst opslaan.

[Fuske]

JohnD schreef op dinsdag 07 oktober 2008 @ 13:14:
Heb je wel je document al opgeslagen?

Hier werkt je code wel maar dan moet ik m'n testbestand eerst opslaan.

Nee, ook als ik hem opsla voegt hij het document niet toe als bijlage. Het enigste wat gebeurd is dat hij een nieuw email venster opent met wel de opgegeven gegevens.

Maar geen .doc file!

Zit er toch iets fout in de??::

code:

.Attachments.Add Source:=ActiveDocument.FullName, Type:=olByValue, _

[JohnD]

zie je die _ daar staan? dat betekent dat die regel nog niet is afgelopen en op de volgende regel verder gaat.

bij mij werkt .Attachments.Add ActiveDocument.FullName prima nadat ik het bestand heb opgeslagen

in zowel 2003 als 2007

[Fuske]

JohnD schreef op dinsdag 07 oktober 2008 @ 14:37:
zie je die _ daar staan? dat betekent dat die regel nog niet is afgelopen en op de volgende regel verder gaat.

bij mij werkt .Attachments.Add ActiveDocument.FullName prima nadat ik het bestand heb opgeslagen

in zowel 2003 als 2007

Heb nu de Source: en de Type: weggehaald en tevens de Displayname.
Getest, werkt als een speer.

De foutmelding die ik kreeg gaf niks specifiek aan, stond alleen. Compileer fout..

Maar al met al hartstikke bedankt voor de tips!
_*slotje

[ Voor 1% gewijzigd door Fuske op 08-10-2008 11:52 . Reden: oeps..foutje:+ ]

[Verwijderd]

ja, soms is het verdomd gecompileerd
ik geef, naar alle waarschijnlijkheid, even de fout mee in de oorspronkelijke code.
daar wordt namelijk verwezen naar olByValue, een outlookconstante gedefineerd in de typebibliotheek die enkel beschikbaar is als je er een expliciete verwijzing naar maakt.(ofwel vervang je de naam van de constante door zijn werkelijke waarde)
op zich was de code dus wel correct, zoals al eerder opgemerkt.