[VBA]Mailadressen vanuit Excel-cellen in een macro toevoegen

Pagina: 1
Acties:
  • 1.621 views

Vraag


Acties:
  • 0 Henk 'm!

  • CChevelle
  • Registratie: Januari 2016
  • Laatst online: 19-09-2020
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

Beste antwoord (via CChevelle op 19-01-2016 17:26)


  • pedorus
  • Registratie: Januari 2008
  • Niet online
code:
1
2
3
.To = [B5]
.CC = [B11]
.BCC = [B20]


(werkt alleen binnen de VBA van Excel zelf)

Vitamine D tekorten in Nederland | Dodelijk coronaforum gesloten

Alle reacties


Acties:
  • +1 Henk 'm!

  • mhoogendam
  • Registratie: Oktober 2002
  • Laatst online: 22:25
code:
1
Cells(2, 5).Value


bron

Acties:
  • +1 Henk 'm!

  • Belindo
  • Registratie: December 2012
  • Laatst online: 22:34

Belindo

▶ ─🔘─────── 15:02

Of
Visual Basic:
1
Sheets("Sheet1").Range("B5").Value


(Sheet 1 even veranderen naar hoe de sheet bij jou heet)

[ Voor 5% gewijzigd door Belindo op 19-01-2016 17:05 ]

Coding in the cold; <brrrrr />


Acties:
  • Beste antwoord
  • 0 Henk 'm!

  • pedorus
  • Registratie: Januari 2008
  • Niet online
code:
1
2
3
.To = [B5]
.CC = [B11]
.BCC = [B20]


(werkt alleen binnen de VBA van Excel zelf)

Vitamine D tekorten in Nederland | Dodelijk coronaforum gesloten


Acties:
  • 0 Henk 'm!

  • CChevelle
  • Registratie: Januari 2016
  • Laatst online: 19-09-2020
Alle 3 hebben jullie keurige aanvullingen gemaakt, waar die van pedorus VERUIT de makkelijkste is.

Alleen wil ik nog graag weten hoe ik meerdere mailadressen in de CC zet, want de BCC gebruik ik niet :)

Hoe dan ook, tophulp, als ik homo zou zijn geweest had ik jullie alle 3 ten huwelijk gevraagd ;)

Acties:
  • +1 Henk 'm!

  • pedorus
  • Registratie: Januari 2008
  • Niet online
Dat is afhankelijk van de mailcomponent, maar waarschijnlijk zoiets:
code:
1
.CC = [B11 & ";" & B20]

of, misschien leesbaarder:
code:
1
.CC = [B11] & ";" & [B20]


Mocht je doorgaan met Excel Macro's maken, dan zul je er op een gegeven moment achter komen dat gebruik maken van de activesheet niet zo handig is. Dan zijn directe [cel] constructies niet meer zo nuttig (en sheet code names wel).

Vitamine D tekorten in Nederland | Dodelijk coronaforum gesloten


Acties:
  • 0 Henk 'm!

  • CChevelle
  • Registratie: Januari 2016
  • Laatst online: 19-09-2020
:)

Het is voor een bedrijf dat Kelders bouwt, dus met mega-statische structuren hoef ik voorlopig og geen rekenng te houden.

iig HEEL ERG BEDANKT! (k)

Acties:
  • 0 Henk 'm!

  • Creepy
  • Registratie: Juni 2001
  • Laatst online: 22:55

Creepy

Tactical Espionage Splatterer

Maar ondanks dat je goed bent geholpen is het hier toch geen helpdesk. Support op code van anderen, mag je bij die ander halen ;) We gaan er hier vanuit dat je zelf ook wat zaken hebt geprobeerd en die ook vermeldt in je topic. Dat laaste heb je simpelweg niet gedaan en daarom lijkt het alsof je ons als helpdesk gebruikt en dat is nu net niet de bedoeling. Dit topic sluit ik dan ook. In Het algemeen beleid #quickstart staat uitgelegd hoe we zaken hier graag willen zien. Lees het eens door.

"I had a problem, I solved it with regular expressions. Now I have two problems". That's shows a lack of appreciation for regular expressions: "I know have _star_ problems" --Kevlin Henney

Pagina: 1

Dit topic is gesloten.