Helpmij.nl
Helpmij.nl
Helpmij.nl

Quote

Weergeven resultaten 1 tot 11 van 11

Onderwerp: Zelfde macro, maar uit verschillende cellen

  1. #1
    Vraag is niet opgelost

    Zelfde macro, maar uit verschillende cellen

    Beste,

    Ik ben al verschillende macro's tegengekomen om een macro te starten door op cel A1 te klikken, maar is volgens mij niet bruikbaar in mijn geval.

    Ik heb een klantenlijst waaruit ik een opvolging wel doen per mail.
    Door het klikken naast de lijn (bvb. Cel P2, P3, ...) zou ik een macro willen starten die telkens de waardes uit deze lijn gebruikt in mijn mailing.

    Is dit mogelijk?


    Mvg,

    Karel
    Bijgevoegde bestanden Bijgevoegde bestanden

  2. #2
    Tera Honourable Senior Member edmoor's avatar
    Geregistreerd
    8 september 2000
    Locatie
    Zuid-Holland
    Zoiets.
    Dubbelklik op een cel in kolom P.
    Bijgevoegde bestanden Bijgevoegde bestanden
    "Bij IT-ers gaat alles automatisch, maar niets vanzelf. "
    Op rechtstreekse vragen via email of privébericht reageer ik niet. Daar is het forum voor.
    Lees ook: http://www.helpmij.nl/forum/announcement.php?f=5

  3. #3
    Bij het openen van het bestand krijg ik een melding en kan ik enkel de macro's uitschakelen.

  4. #4
    Tera Honourable Senior Member edmoor's avatar
    Geregistreerd
    8 september 2000
    Locatie
    Zuid-Holland
    Je wilt macro's gebruiken.
    Dan moet je dus in Excel in het Vertrouwenscentrum instellen dat macro's toegestaan zijn.
    Tevens even rechts klikken op het bestand en deze deblokkeren in de Eigenschappen.
    "Bij IT-ers gaat alles automatisch, maar niets vanzelf. "
    Op rechtstreekse vragen via email of privébericht reageer ik niet. Daar is het forum voor.
    Lees ook: http://www.helpmij.nl/forum/announcement.php?f=5

  5. #5
    Heb ik beide gedaan.

    Melding blijft.
    Bijgevoegde kleine afbeeldingen Bijgevoegde kleine afbeeldingen Klik op afbeelding voor grotere versie

Naam:  Naamloos.png‎
Bekeken: 7
Grootte:  150,5 KB  

  6. #6
    Tera Honourable Senior Member edmoor's avatar
    Geregistreerd
    8 september 2000
    Locatie
    Zuid-Holland
    Dan heb je 1 van de twee niet goed gedaan.
    "Bij IT-ers gaat alles automatisch, maar niets vanzelf. "
    Op rechtstreekse vragen via email of privébericht reageer ik niet. Daar is het forum voor.
    Lees ook: http://www.helpmij.nl/forum/announcement.php?f=5

  7. #7
    Beide uitgevoerd. Zie bijlage.
    Bijgevoegde kleine afbeeldingen Bijgevoegde kleine afbeeldingen Klik op afbeelding voor grotere versie

Naam:  Naamloos2.png‎
Bekeken: 4
Grootte:  23,8 KB   Klik op afbeelding voor grotere versie

Naam:  Naamloos3.png‎
Bekeken: 5
Grootte:  19,4 KB  

  8. #8
    Tera Honourable Senior Member edmoor's avatar
    Geregistreerd
    8 september 2000
    Locatie
    Zuid-Holland
    En bij beide op Ok geklikt neem ik aan?
    Is die Z: schijf een lokale of een netwerkschijf?
    Plaats dat document eens op je C: schijf, zonodig nogmaals deblokkeren en het dan nog eens proberen.

    Anders weet ik het ook niet.
    Het is een Windows of Excel beveiligings probleem.
    Laatst aangepast door edmoor : Gisteren om 13:49
    "Bij IT-ers gaat alles automatisch, maar niets vanzelf. "
    Op rechtstreekse vragen via email of privébericht reageer ik niet. Daar is het forum voor.
    Lees ook: http://www.helpmij.nl/forum/announcement.php?f=5

  9. #9
    Heb je VBA-code in het origineel gezet, en nu werkt het.


    Ik gebruik onderstaande om mailing van ander bestand uit te voeren.
    Hoe schrijf ik dan code om mailadres en dossiernummer (In onderwerp) uit die bepaalde rij over te nemen?


    Code:
    Sub PDFEmail_bestelling()
    
    
    Set OutApp = GetObject(, "Outlook.Application")
    Set OutApp = CreateObject("Outlook.Application")
    Set OutAccount = OutApp.Session.Accounts.Item(2)
    OutApp.Session.Logon
    Set OutMail = OutApp.CreateItem(0)
    xOutMsgA = "<i>Dit is een automatisch verstuurde mail. Op deze mail kan niet geantwoord worden. Indien je toch wenst te reageren, klik dan <u><a href=""http://www.tuinhuizenfabrikant.be/nl/levertermijn"">hier</a></u>.</i>"
    xOutMsgB = "Beste klant,<br/><br />" & _
              "Wij wensen u nogmaals te bedanken voor het plaatsen van uw bestelling en het vertrouwen dat u in ons stelt.<br/><br />" & _
              "Onderstaand vindt u een kort overzicht terug van het verdere verloop van uw bestelling.<br /><br />"
    xOutMsg0 = "<b>HET VERDER VERLOOP VAN DE BESTELLING</b><br /><br />"
    xOutMsg1 = "<b><span style='color:red'>1.</span> CONTACTNAME I.V.M. DE BETONWERKEN</b><br />" & _
              "<i>Indien Christiaens Yvan een betonplaat dient te voorzien, nemen we na ongeveer 3 weken volgend op de bestelling contact met je op en spreken een datum af om bij jou ter plaatse de technische mogelijkheden te overlopen.</i><br />" & _
              "<br />"
    xOutMsg2 = "<b><span style='color:red'>2.</span> OPSTART VAN DE PRODUCTIE</b><br />" & _
              "<i>Christiaens Yvan zal je een e-mail versturen van zodra het tuinhuis in productie is opgenomen.</i><br />" & _
              "<i>Deze productieperiode zal 2 tot 3 weken in beslag nemen. Het vastleggen van de plaatsingsdatum kan pas na het einde van de productieperiode.</i><br />" & _
              "<br />"
    xOutMsg3 = "<b><span style='color:red'>3.</span> AFSPRAAK MAKEN VOOR DE PLAATSING</b><br />" & _
              "<i>Na de productieperiode neemt Christiaens Yvan telefonisch contact met je op om een datum voor plaatsing af te spreken.</i><br />" & _
              "<b><span style='color:red'>Aandacht: </span></b><i>We zullen u vragen om eerst een foto van de gedane grondwerken door te mailen. Enkel op die manier kunnen onze plaatsers de situatie op voorhand inschatten. Gelieve deze foto (jpg) alvast klaar te hebben.</i><br />" & _
              "<br />"
    xOutMsg4 = "<b><span style='color:red'>4.</span> DE PLAATSING</b><br />" & _
              "<i>Uw aanwezigheid tijdens de plaatsing is gewenst en zeker bij de opstart en bij het einde van de werken.</i><br />" & _
              "<i>Bij aankomst zullen de plaatsers je de factuur overhandigen. Gelieve deze goed na te lezen.</i><br />" & _
              "<br />"
    xOutMsg5 = "<b><span style='color:red'>5.</span> DE CHECKLIST</b><br />" & _
              "<i>Na de plaatsing ontvang je een checklist die je dan samen met de plaatsers overloopt. Doe dit stap voor stap en geef deze checklist - door de klant gehandtekend - terug mee met de plaatsers.</i><br />" & _
              "<br />"
    xOutMsg6 = "<b><span style='color:red'>6.</span> DE BETALING</b><br />" & _
              "<i>Op de laatste dag van de plaatsing vragen wij een bewijs van betaling te tonen. Er kunnen geenszins bedragen worden achtergehouden en het verschuldigde bedrag dient 100% betaald te worden na het overlopen van de checklist en ten laatste bij vertrek van de plaatsers.</i><br />" & _
              "<br />"
    xOutMsg7 = "<b><span style='color:red'>7.</span> HET ONDERHOUDSBOEKJE</b><br />" & _
              "<i>Na afloop ontvang je een bundel met documenten. Ook het onderhoudsboekje zal je daarin terugvinden.</i><br />" & _
              "<i>Gelieve zeker alle aandachtspunten erin goed door te nemen, afhankelijk van type houtsoort en type tuinhuis.</i><br/><br />" & _
              "<br />"
    xOutMsgC = "Met vriendelijke groeten,<br /><br />" & _
              "<b>Tuinhuizenfabrikant YC</b>"
    With OutMail
    Set .SendUsingAccount = OutAccount
    .Display
    .To = Range("D3").Value
    .CC = ""
    .BCC = ""
    .Subject = "Bevestiging bestelling"
    .HTMLBody = "<img src = 'X:\D-schijf\Verkoop\VBA Mailings\Signatures\Productie_001.jpg'>" & "<br/><br/>" & xOutMsgA & "<br/><br/><br/>" & xOutMsgB & "<br/>" & xOutMsg0 & "<br/>" & xOutMsg1 & "<br/>" & xOutMsg2 & "<br/>" & xOutMsg3 & "<br/>" & xOutMsg4 & "<br/>" & xOutMsg5 & "<br/>" & xOutMsg6 & "<br/>" & xOutMsg7 & "<br/>" & xOutMsgC & "<br/>" & "<img src = 'X:\D-schijf\Verkoop\VBA Mailings\Signatures\Productie_002.jpg'>"
    .Send
    End With
    Set OutAccount = Nothing
    Set OutMail = Nothing
    Set OutApp = Nothing
    
    
    MsgBox "De mail werd verstuurd."

  10. #10
    Tera Honourable Senior Member edmoor's avatar
    Geregistreerd
    8 september 2000
    Locatie
    Zuid-Holland
    Hoe je dossiernummer kan overnemen staat in de voorbeeldcode die ik je gaf.
    Alleen wordt daar dan de klant getoond.
    "Bij IT-ers gaat alles automatisch, maar niets vanzelf. "
    Op rechtstreekse vragen via email of privébericht reageer ik niet. Daar is het forum voor.
    Lees ook: http://www.helpmij.nl/forum/announcement.php?f=5

  11. #11
    Mail wordt verstuurd.

    Ga nu nog wat puzzelen aan de rest.


    Thx.

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