Beste slimmerikken, 
Alvorens te beginnen ben ik een totale leek op VBA gebied, ik ben het type dat schaamteloos jat, kopieert, rommelt, en trots is als een pauw als de gejatte code met minimale aanpassingen nog werkt ook.
De Macro die ik deze keer heb gejat is afkomstig uit deze link:
http://www.rondebruin.nl/win/s1/outlook/bmail1.htm
Het probleem:
in mijn Excel-werkblad die tevens de activesheet is voor de macro zitten 3 cellen, B5, B11 en B20, in deze cellen zitten mailadressen, waarin B5 de hoofdontvanger is, en B11 en B20 CC-adressen zijn.
Mijn vraag:
Is het mogelijk om via celcode de mailadressen op de zgn "activesheet" hier ergens in toe te voegen?
With OutMail
.To = "ron@debruin.nl"
.CC = ""
.BCC = ""
.Subject = "This is the Subject line"
.HTMLBody = RangetoHTML(rng)
Of zijn er andere opties mogelijk?
Alvast bedankt voor het lezen.
Met gepaste schaamte,
Y
Alvorens te beginnen ben ik een totale leek op VBA gebied, ik ben het type dat schaamteloos jat, kopieert, rommelt, en trots is als een pauw als de gejatte code met minimale aanpassingen nog werkt ook.
De Macro die ik deze keer heb gejat is afkomstig uit deze link:
http://www.rondebruin.nl/win/s1/outlook/bmail1.htm
Het probleem:
in mijn Excel-werkblad die tevens de activesheet is voor de macro zitten 3 cellen, B5, B11 en B20, in deze cellen zitten mailadressen, waarin B5 de hoofdontvanger is, en B11 en B20 CC-adressen zijn.
Mijn vraag:
Is het mogelijk om via celcode de mailadressen op de zgn "activesheet" hier ergens in toe te voegen?
With OutMail
.To = "ron@debruin.nl"
.CC = ""
.BCC = ""
.Subject = "This is the Subject line"
.HTMLBody = RangetoHTML(rng)
Of zijn er andere opties mogelijk?
Alvast bedankt voor het lezen.
Met gepaste schaamte,
Y