• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

tekst naar email

Status
Niet open voor verdere reacties.
M

marcvk45

Gebruiker
Lid geworden
22 dec 2010
Berichten
93
Ik heb ongeveer 2000 adressen maar de mail adressen staan als tekst. Is er een mogelijkheid om deze te converteren zodat deze blauw worden en wanneer er op een adres geklikt wordt dan zou outlook moeten openen zodat er naar dat adres een mailtje kan verzonden worden
 
je zou deze kunnen draaien: ( kolom/bereik even aanpassen naar wens

Code: 
Sub SjonR()

For Each cl In Range("A1:A2000")
    ActiveSheet.Hyperlinks.Add cl, "Mailto:" & cl.Value, , , cl.Value
Next

End Sub
 
SjonR,

Bedankt voor uw reactie. Maar waar plaats ik dit in excel ?
 
Dit plaats je met de VB-editor (ALT F11) in het bewuste werkblad.

Als de range klopt , A1 tm A2000, dan kan je code uitvoeren door op F5 te drukken
 
ok, bedabkt

Het werkt tot ik aan lege cel kom waar geen mail adres in staat. Ik heb dit opgelost door te sorteren en dan de ingevulde cellen aan te duiden.
Blijven die mailadressen staan als ik die VB terug verwijder of wordt dat terufg tekst?
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan