Excel Email-verstuur knop

[Verwijderd]

Ik heb een vraag over Excel.
Uiteraard heb ik als eerste op internet en het forum gezocht of ik al een oplossing kon vinden, ik vond een paar topics, maar tog wil het niet lukken.

Ik heb in excel een formulier wat ingevuld kan worden.
Nu wil ik dat er een knop in komt (dmv een Macro ofiets)
zodat hij dat Blad (Formulier) doorstuurt naar 1 vast emailadres, dat van mijn.
Ergens anders zag ik een topic met:
[rml][ Excel 2002 SP3] Email button in Excel maken[/rml]]

Een Macro...
Alleen deze werkt niet.
PS. Ik werk met Excel 1997.
Hij geeft bij fout opsporing hier al gele markeringen:
Sub Mail()

Dim bStarted As Boolean
Dim oOutlookApp As Outlook.Application
Ik hoop dat iemand mij kan helpen.
M.vG
Dongen!

[ Voor 4% gewijzigd door Verwijderd op 16-05-2006 16:24 ]

[TeeDee]

Heb je outlook wel op diezelfde PC staan?

[Verwijderd]

Jah, Outlook 2003.
Maar als het kan moet het ook vanaf andere pc's worden gestuurd.
Maar als het alleen met mijne kan is het in eerste instantie ook goed.

[Ruzor]

Misschien ligt het aan het feit dat het Excel 2002 en Excel 1997 zijn?

offtopic:
Het is toch

[TeeDee]

En deze addin welke ook in je aangehaalde topic staat?

[Verwijderd]

Als ik dat gebruik stuurt hij het naar mijn hardeschijf, maar ik moet hem mailen.
Iemand andere ideeen?

[TeeDee]

Verwijderd schreef op dinsdag 16 mei 2006 @ 16:38:
Als ik dat gebruik stuurt hij het naar mijn hardeschijf, maar ik moet hem mailen.
Iemand andere ideeen?

http://www.rondebruin.nl/mail/folder1/mail1.htm of beter nog: http://www.rondebruin.nl/sendmail.htm

[ Voor 10% gewijzigd door TeeDee op 16-05-2006 16:49 ]

[urk_forever]

Heb je wel een referentie naar Microsoft Outlook in je VBA aan staan. Je kan dit zien bij Extra - Verwijzingen, daar staat een lijst met referenties, daar moet ook iets van Microsoft Outlook 10.0 Object library bij staan. Staat die er niet bij moet je die in de lijst op zoeken en aanvinken, probeer het dat nog eens.

[Verwijderd]

Het stond inderdaat niet aangevinkt!
Dus ik heb hem aangevinkt!
Maar HELAAS, ik krijg nog steeds geen gehoor hij blijft fouten geven.

[Verwijderd]

Ik heb hem nu aan de praat gekregen , hij mailed wel alleen hij geeft tijdens het mailen nog 1 foutmelding:
Methode "ChangeFileAcces" van object_'Workbook" is mislukt.
Iemand een idee hoe ik deze wegkrijg?
___________________________________________________________________________________

Hij is als volgt:

code:

Sub Mail_ActiveSheet()
    Dim wb As Workbook
    Dim strdate As String
    strdate = Format(Now, "dd-mm-yy h-mm-ss")
    Application.ScreenUpdating = False
    ActiveSheet.Copy
    Set wb = ActiveWorkbook
    With wb
        .SendMail "MIJN EMAIL ***", _
                  "This is the Subject line"
        .ChangeFileAccess xlReadOnly
        Kill .FullName
        .Close False
    End With
    Application.ScreenUpdating = True
End Sub

[ Voor 66% gewijzigd door Verwijderd op 17-05-2006 10:16 ]

[TeeDee]

Wat heb je zelf allemaal nou geprobeerd? Begint een beetje op een 'handje vasthoudt' topic te lijken.

[Lustucru]

Dit is idd niet helemaal de bedoeling
Code svp tussen [code=vb][/code] tags. dat komt de leesbaarheid ten goede. Belangrijker is dat het nu begint te lijken op 'wie maakt mijn macro werkend' en dat willen we niet. Vraag jezelf eens af wat doet die macro nu eigenlijk? Je maakt een copie van een sheet in een nieuwe werkmap. Daarvan wil je de toegangsrechten wijzigen om hem vervolgens te verwijderen. Test dan bv eerst eens wat er gebeurt als je die regels helemaal weglaat en het workbook gewoon sluit zonder hem te bewaren?

[Verwijderd]

Tuurlijk heb ik al geprobeerd regels te verwijderen, maar dan krijg ik een syntacs error.

[TeeDee]

Verwijderd schreef op woensdag 17 mei 2006 @ 10:17:
Tuurlijk heb ik al geprobeerd regels te verwijderen, maar dan krijg ik een syntacs error.

Wat voor errors? De glazen bollen zijn uitverkocht.
Syntax errors zijn of tikfouten, of een methode die niet goed aangeroepen wordt. Of een combinatie daarvan. Toon eens wat code zoals je 'm nu hebt.

[ Voor 10% gewijzigd door TeeDee op 17-05-2006 10:52 ]

[Lustucru]

Verwijderd schreef op woensdag 17 mei 2006 @ 10:17:
Tuurlijk heb ik al geprobeerd regels te verwijderen, maar dan krijg ik een syntacs error.

Een syntax error op een verwijderde regel lijkt me tamelijk onmogelijk.

code:

 .ChangeFileAccess xlReadOnly
  Kill .FullName

moet zonder probleem te verwijderen zijn.

Anyway: het is jóuw probleem en als je een goed antwoord wilt is het belangrijk dat jíj goed uitlegt wat er aan de hand is en ook wat je zelf probeert en bedenkt.' Ja dan krijg ik syntax errors' zegt natuurlijk helemaal niks. Probeer in ieder geval (stapsgewijs) te begrijpen wat je code doet. Als je je code ergens anders vandaan hebt geplukt is daar misschien ook wel meer informatie te vinden. Post relevante stukjes code en de foutmeldingen. Geef aan wat daar volgens jou gebeurt en waarom dat nodig is. We willen best met je meedenken, maar voor je denken gaat te ver.

[ Voor 7% gewijzigd door Lustucru op 17-05-2006 11:13 ]