Mailen van sheet

Status
Niet open voor verdere reacties.
B

B767300ER

Gebruiker
Lid geworden
28 apr 2015
Berichten
46
Hallo medeforummers,

Ik ben al op de website van Ron de Bruin (prachtige website) geweest maar kom er niet lekker uit.
ik ben op zoek naar een macro welke het volgende doet.

Op tabblad "X" Heb ik een klantenbestand staan
In kolom A de naam van een persoon en in kolom F het mailadres van die persoon
Uiteraard staat er op elke regel een nieuwe naam met een nieuw mailadres.

Nu wil ik dat een macro elke geadresseerde op tabblad X een mail stuurt (elke persoon een losse mail) met in de body een tekst welke op tabblad Y staat
met onderwerp "A"

Het lukt me wel om dit te doen als ik in plaats van de tekst op tabblad Y de tekst in de macro zet, maar aangezien ik de tekst nog wel eens wil wijzigen doe ik dat liever op een tabblad als in de macro.
Daarbij is de tekst zon 50 regels, dus die liever niet in de macro verwerkt.

Het liefste zou ik dan ook nog willen dat in de mail wordt begonnen met "Beste (naam klant tabblad X kolom A),"
en dan pas de tekst uit tabblad "Y" komt. Maar als dat niet gaat dan is dat niet super belangrijk.

Is er iemand die mij hiermee op weg kan helpen?
Het moet mogelijk zijn, ik heb dit wel gezien in een ander document maar krijg de logica niet ontcijfert uit de macro.
IK hoor graag van jullie

Groetjes Niels
 
Het is geen enkel probleem.
Als je een voorbeeld document plaatst is dat makkelijk in te bouwen.
 
Dan zal ik die eerst even moeten maken.
Ik kan niet even mijn klantbestand online zetten namelijk ;)
 
en de bijlage hopelijk kan je er wat mee
 

Bijlagen

  • a1.xlsx
    10,1 KB · Weergaven: 41
Als niemand me voor is zal ik er morgen naar kijken.
 
DIt werkt super. Mijn complimenten.
IK heb hem een beetje aangepast (de mededeling in beeld weggelaten) en werkt prima! Dank je wel.

1 laatste vraag. De aanhef is van een kleiner lettertype dan de rest van de email. Is dat nog enigszins aan te passen?

Nogmaals mijn enorme dank!
 
Dat heeft te maken met verschil in HTML. Je kan kolom A in het blad tekst zo opmaken als je wilt, dat zal worden gebruikt.
Zonder daar iets aan te veranderen denk ik dat dit er beter uit ziet:
Bekijk bijlage a1.xlsm
 
Dank je wel. Ik ben hier echt zoooo blij mee. Helemaal super. Dikke pluim van mij!
 
Graag gedaan :)
 
@edmoor,

Werkt zoiets ook niet? Even een korte variant van de wensen van de TS. Lijkt bij mij dezelfde uitkomst te geven in de HTMLBody als jouw code.

Code: 
Sub VenA()
  ar = Sheets("tekst").Columns(1).SpecialCells(2)
  For j = 1 To UBound(ar)
    c00 = c00 & ar(j, 1) & "<br>"
  Next j
  With CreateObject("Outlook.Application").CreateItem(0)
   .to = "temp"
   .HTMLBody = c00
   .display
  End With
End Sub
 
Laatst bewerkt:
Dat zal op zich wel werken, maar dan neem je de layout van dat sheet niet mee.
Is ook niet gevraagd, maar is meestal een vraag die naderhand wel komt ;)
 
Dat verklaart weer het eea van ogenschijnlijke moeilijke code.:d
 
Ik heb inderdaad de RangeToHTML van Ron de Bruin er in gebruikt omdat je dan die 50 regels tekst ook kan opmaken met kleurtjes, bold, italics, kaders e.d.
 
Van mij hoeft de HTML opmaak niet.
Waar zou ik het gedeelte van VenA moeten plaatsen zodat mijn complete document zo werkt?
 
Zoiets:
Code: 
c00 = Join(Application.Transpose(Sheets("tekst").Columns(1).SpecialCells(2)), vbCrLf)

Bekijk bijlage a1.xlsm
 
Laatst bewerkt:
Dit ziet er geweldig uit.
Eens kijken of we dat kunnen inpassen in mijn document.
Voor nu alvast mijn heel hartelijk dank
 
Oke, 1 constatering, als er een lege regel is op tabblad tekst, dan loopt de macro vast...
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan