Formulier verzenden

[Vecom]

Hoi,

Ik heb een invul-formulier voor medewerkers gemaakt, dat - na invulling - moet worden verzonden naar een (vast) e-mailadres.
Dat zou ik willen doen middels een 'knop', dus w.s. met daarachter een macro.
Heeft iemand daar een oplossing voor, of is bekend of hier al een keer iets over is aangedragen?
Word2000.

Graag jullie reactie.

Tée

 

[joost verdaasdo]

Hai Teun,

Met deze code kun je het huidige document met mail verzenden:

Sub Verzenden()
Dim bStarted As Boolean
Dim oOutlookApp As Object
Dim oItem As Object

On Error Resume Next

If Len(ActiveDocument.Path) = 0 Then
    MsgBox "Het document moet eerst opgeslagen worden?"
    Exit Sub
End If

Set oOutlookApp = GetObject(, "Outlook.Application")

If Err <> 0 Then
    Set oOutlookApp = CreateObject("Outlook.Application")
    bStarted = True
End If

Set oItem = oOutlookApp.CreateItem(0)

With oItem
    .To = "test@dance.nl"
    .Subject = "Hoe is het?"
    .Attachments.Add ActiveDocument.FullName
    .Send
End With

If bStarted Then
    oOutlookApp.Quit
End If

Set oItem = Nothing
Set oOutlookApp = Nothing
End Sub

Ik gebruik late binding in de code zodat ik geen rekening hoef te houden met jou versie..

Je hebt het over een formulier zo ja heb je deze beveiligd? (Dan is de code weer anders)

In de bijlage zie je een werkend voorbeeld.

Succes! :thumb:

 

[Vecom]

Hoi Joost,

Bedankt voor je invent totnutoe.
Maar inderdaad betreft het een beveiligd formulier, dat als sjabloon is opgeslagen.

Het je hier ook een oplossing voor?

Teun

 

[joost verdaasdo]

Hai Teun,

Zolang jij het duidelijk kunt omschrijven is er altijd een oplossing te verzinnen!

Zie bijlage voor aangepast (Beveiligd) sjabloon.

Succes! :thumb:

 

[Vecom]

Hoi Joost ......

Dit is idd de oplossing die ik zoek ......
Alleen kan ik er niet zoveel mee omdat je een password op het document hebt gezet.
Maar dat was de grap natuurlijk .....
Wil je me een niet met wachtwoord beveiligde versie meesturen?

Dank, Teun

 

[Vecom]

Hoi Wizzkids,

Weet iemand anders misschien een oplossing voor het bovenstaande probleem.
Ik heb van Joost wel een 'kant en klare' oplossing gekregen, maar via een met wachtwoord beveiligd document. Ik weet het wachtwoord niet en ja, daar kan ik dus verder niet zoveel mee .....
Het zou me echt uit de brand helpen!
Bedankt alvast.

Teun

 

[esnej]

Hallo Teun,

Misschien moet je bij macro's de beveiliging even omlaag gooien, dan kan je het bestand nl wel geopend krijgen. Bij ij word er nu niet om een wacht woord gevraagd.

Groeten,


Mieke

 

[Vecom]

Hoi Mieke,

Nee, daar gaat het niet om. De beveiliging staat al 'laag'
Maar Joost heeft mij een als bijlage een Word-document gestuurd, dat hij met een formulier-wachtwoord heeft beveiligd.
Ik snap niet waarom hij me niet: of het wachtwoord geeft, óf hetzelfde document, maar waar bij de beveiliging geen (opioneel) formulierwachtwoord in heeft gevoerd.
Ik heb nu uiteraard aan zijn document niets, alhoewel hij wel de oplossing lijkt te hebben voor het probleem dat ik heb aangegeven.
En snap dus eigenlijk niet waarom hij dit doet!!!!


Grts, Teun

 

[joost verdaasdo]

Geplaatst door Vecom
En snap dus eigenlijk niet waarom hij dit doet!!!!

Hai Teun,

Sorry ben op vakantie geweest (Letterlijk, stap net na een rit van 12uur binnen) en vandaar dat ik hier niet tijdig op gereageerd heb! (En nu lijkt het of je verontwaardigd bent..enne das nu ook weer niet de bedoeling..)

Het wachtwoord is gewoon Joost. (alleen ww formulierbeveiliging)
Als je ALT+F11 drukt dan zie je deze gewoon in de code staan.

Aangezien ik jou in mijn vorige post de VBA code had gegeven ging ik ervan uit dat je hiermee bekend was en dat je daar dus zou kijken...(en dus het wachtwoord zou zien)

Het was echt niet om te pesten hoor!
(Zo grappig ben ik nu ook weer niet)

Laat maar horen of er nog meer vragen zijn?

See Yah!

 

[joost verdaasdo]

Je - beveiligde - sjabloon werkt ..... totdat ik hem zelf opgeslagen heb in de map met sjablonen en hem open via het menu Bestand > Nieuw.

Hai Teun,

Helaas kan ik nu niet testen in 2000

Heb even getest in 2002 en 2003:
Rechtermuisknop op het sjabloon en kies openen
Dan bestand/opslaan als sjabloon (in de map sjablonen)
Nu via bestand/nieuw..etc...

Geen enkel probleem de werkbalk is er nog..

Check even twee dingen:
* Heb jij mijn sjabloon wel daadwerkelijk als sjabloon geopend? (Rechtermuis en dan openen) of heb je dubbelgeklikt?)
* Heb je al bij beeld werkbalken gekeken of de werkbalk "Mail" inderdaad daar ook niet meer staat..

See Yah! :thumb:

 

[Vecom]

Hoi Joost,

.... hij lijkt inderdaad te werken nu.
Nou nog koppelen aan mijn reeds bestaande formulier.
Je verneemt van mij

Dank, Teun

 

[joost verdaasdo]

Hai Teun,

Kijk das fijn om te horen...graag gedaan! :thumb:
Inderdaad laat even weten of je er helemaal uit bent gekomen...

 

[Vecom]

Jij bent ook nog laat op ... ik ook trouwens.

Grts, Teun

 

[joost verdaasdo]

Tja..nare gewoonte..en zal maar niet zeggen dat bij mij om 06:00uur de wekker gaat!

 

[Arno2253]

Joost,

Weet je ook toevallig hoe je in het subject de inhoud van een cel kan krijgen in plaats van een vast etekst.
Arno

Hai Teun,

Met deze code kun je het huidige document met mail verzenden:

Sub Verzenden()
Dim bStarted As Boolean
Dim oOutlookApp As Object
Dim oItem As Object

On Error Resume Next

If Len(ActiveDocument.Path) = 0 Then
    MsgBox "Het document moet eerst opgeslagen worden?"
    Exit Sub
End If

Set oOutlookApp = GetObject(, "Outlook.Application")

If Err <> 0 Then
    Set oOutlookApp = CreateObject("Outlook.Application")
    bStarted = True
End If

Set oItem = oOutlookApp.CreateItem(0)

With oItem
    .To = "test@dance.nl"
    .Subject = "Hoe is het?"
    .Attachments.Add ActiveDocument.FullName
    .Send
End With

If bStarted Then
    oOutlookApp.Quit
End If

Set oItem = Nothing
Set oOutlookApp = Nothing
End Sub

Ik gebruik late binding in de code zodat ik geen rekening hoef te houden met jou versie..

Je hebt het over een formulier zo ja heb je deze beveiligd? (Dan is de code weer anders)

In de bijlage zie je een werkend voorbeeld.

Succes! :thumb: