Helpmij.nl
Helpmij.nl
Helpmij.nl
Steun Helpmij.nl! Klik hier     Computerprobleem? Klik hier!

Quote

Weergeven resultaten 1 tot 11 van 11

Onderwerp: hulp bij gemaakte excel met macro automatisch versturen (dubbele werking van knop)

  • Vraag is niet opgelost
  1. #1

    hulp bij gemaakte excel met macro automatisch versturen (dubbele werking van knop)

    Hallo,

    Voor mijn werk ben ik bezig met een verbeter project.

    Nu heb ik samen met mijn collega een excel bestand met macro gemaakt.
    Deze werkt tot het aanmaken van een nieuwe map/bestand op een locatie op een schijf.
    Dit alles werkt daar.

    Nu willen we deze iets uitbreiden met; het automatisch versturen van een melding e-mail van het gemaakte/gecreëerde bestand-naam.

    Dit door op de knop te drukken "Maak VOP + zend e-mail"

    Tevens is er de wens om in het paars gekleurde vak, (waar er 3 keuzes zijn) verschillende personen gemaild kunnen gaan worden.

    Heb graag uw hulp nodig om dit te kunnen realiseren.
    Attached Files Attached Files

  2. #2
    Hallo,

    Ik heb je bestand even bekeken en heb een aantal vragen:

    - Welk emailprogramma wil je gaan gebruiken
    - Aan wie moet de meldingsmail verstuurd gaan worden?

    Als ik naar de VBA code kijk, lijkt het erop dat dit een opgenomen macro is.
    Wanneer er iets in de opbouw van het werkblad verandert, kan dit problemen opleveren.
    Ook de locatie van opslag (de folder) die in cel B72 staat kan op een minder foutgevoelige manier worden geselecteerd/gewijzigd.

    Mogelijkheden zijn er voldoende, maar belangrijkste is dat het werkbaar moet zijn en blijven.

    Om mogelijk veel heen-en-weer berichten te voorkomen, kun je me ook direct mailen.

  3. #3
    Hallo exopad.

    Alvast bedankt voor je moeite en je reactie.

    We gebruiken office outlook 2010, en willen deze gebruiken.
    Zoals ik al vertelde wilde dit ik aan verschillende personen willen mailen afhankelijk van de keuze van het paarse vak (G12)
    Bijvoorbeeld:
    Keuze CAS = piet@email.nl en klaas@email.nl
    Keuze OEM = Gerrit@email.nl en jan@email.nl
    Keuze CAS-OEM = piet@email.nl en klaas@email.nl en Gerrit@email.nl en jan@email.nl

    Van de opbouw kan ik je niet veel vertellen, dank wel dat je gelijk hebt dat dit een opgenomen macro is.
    Of dit anders of beter kan hoor ik graag (eventuele aanpassingen verneem ik graag, u heeft het bestandje).
    Aanpassingen mbt cel B72 sta ik ook open voor, zeker als het gaat om fout gevoeligheid.

    Hoop dat u de wensen van het programmetje begrijpt/duidelijk is wat de bedoeling moet zijn.
    Het u best wel willen mailen, lukt me niet.
    Mijn direct mailen is ook goed of wenselijk.

    Met vriendelijke groet,
    kenc
    Laatst aangepast door kenc : 25 april 2012 om 19:07

  4. #4
    als het goed is, is de mail nu binnen.

  5. #5
    Hallo exopad

    Als het goed is heb je nu een mail binnen?

    Gr,
    Kees

  6. #6
    Supermoderator
    Verenigingslid
    frankwannet's avatar
    Geregistreerd
    6 juni 2006
    Locatie
    Nijmegen
    Afstand tot server
    ±41 km
    Quote Origineel gepost door exopad Bekijk Bericht
    Om mogelijk veel heen-en-weer berichten te voorkomen, kun je me ook direct mailen.
    En dat is dan juist net niet de bedoeling. Helpen doet men via het forum.Anderen die willen helpen weten dan ook de status.En daarbij...is er dan geen controle of de geboden hulp wel de juiste is.
    Of zullen we het forum maar opdoeken dan??
    Mocht er nu geholpen worden via mail dan toch wel evt oplosssingen in topic plaatsen.

    Wordt verenigingslid en zie de voordelen.
    Op vragen via email reageer ik niet. Daar is het forum voor.



  7. #7
    Natuurlijk is dit forum er om allemaal wat wijzer van te worden.

    Wat ik uiteindelijk heb gedaan is op een werkblad in drie verschillende rijen de emailadressen geplaatst die passen bij de mogelijkheden uit de keuzelijst.
    Dus in rij 2:
    CAS piet@email.nl en klaas@email.nl
    Rij 3:
    OEM Gerrit@email.nl en jan@email.nl
    Rij 4:
    CAS-OEM piet@email.nl en klaas@email.nl en Gerrit@email.nl en jan@email.nl

    Vervolgens met een Loop een mail laten versturen naar een van deze emailadressen.
    (Met If-statements in de code.... If Range("G12") = "CAS" Then ... gegevens uit rij 2 uitlezen If Range("G12") = "OEM" Then ... gegevens uit rij 3 uitlezen enz.)

  8. #8
    Hallo Johan,

    Alvast hartelijk dank zover.
    Ben momenteel aan het testen, alleen kom ik nog niet verder omdat ik niet weet waar ik het pad/locatie verwijzing
    kan verranderen om dit thuis ook uit te kunnen testen om de aanmaak te doen en te mailen.

    Als je me misschien kan aangeven waar deze precies zit kan ik thuis testen.

    Verder houd ik je op de hoogte voor het verdere verloop of uitbreiding/verbeteringen.

    Hoop snel weer van je te horen.

    Met vriendelijke groet,
    Kees

  9. #9
    Hallo Johan,

    Het werk perfect.
    Bedankt super.

    Verder houd ik je op de hoogte voor het verdere verloop of uitbreiding/verbeteringen.


    Met vriendelijke groet,
    Kees

  10. #10
    Mega Honourable Senior Member Warme bakkertje's avatar
    Geregistreerd
    13 april 2008
    Locatie
    Merksem
    Afstand tot server
    ±181 km
    Je kan misschien je voltooide bestand hier plaatsen zodat andere forumgebruikers er ook iets aan hebben.
    Mvg,
    Rudi

    Er zijn geen domme vragen, enkel domme antwoorden

  11. #11
    Hierbij de code die is toegevoegd om het mailen te laten functioneren:
    _____________________
    Dim mailbereik As String
    mailbereik = Range("G12")

    Dim OutApp As Object
    Dim OutMail As Object
    Dim strbody As String








    strbody = "Nieuwe VOP " & Sheets("VOP blad deel 1 creator").Range("C6") & " aangemaakt op " & Now()

    If mailbereik = "CAS" Then
    Sheets("Werkblad").Select
    Range("C2").Select
    Do
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
    On Error Resume Next
    With OutMail
    .To = ActiveCell.Text
    .CC = ""
    .BCC = ""
    .Subject = "Nieuwe VOP melding"
    .Body = strbody
    .Send
    End With
    On Error GoTo 0

    Set OutMail = Nothing
    Set OutApp = Nothing
    ActiveCell.Offset(0, 1).Select
    Loop Until ActiveCell = ""
    ElseIf mailbereik = "OEM" Then
    Sheets("Werkblad").Select
    Range("C3").Select
    Do
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
    On Error Resume Next
    With OutMail
    .To = ActiveCell.Text
    .CC = ""
    .BCC = ""
    .Subject = "Nieuwe VOP melding"
    .Body = strbody
    .Send
    End With
    On Error GoTo 0

    Set OutMail = Nothing
    Set OutApp = Nothing
    ActiveCell.Offset(0, 1).Select
    Loop Until ActiveCell = ""

    ElseIf mailbereik = "CAS-OEM" Then
    Sheets("Werkblad").Select
    Range("C4").Select
    Do
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
    On Error Resume Next
    With OutMail
    .To = ActiveCell.Text
    .CC = ""
    .BCC = ""
    .Subject = "Nieuwe VOP melding"
    .Body = strbody
    .Send
    End With
    On Error GoTo 0

    Set OutMail = Nothing
    Set OutApp = Nothing
    ActiveCell.Offset(0, 1).Select
    Loop Until ActiveCell = ""
    End If
    _____________________

Berichtenregels

  • U mag geen nieuwe vragen starten.
  • U mag niet reageren op berichten.
  • U mag geen bijlagen versturen.
  • U mag uw berichten niet bewerken.
  •  
Helpmij.nl
Helpmij.nl

Helpmij.nl en business

Partners
Sponsoren
Linkpartners
Aanbiedingen