outlook of gmail

[marcvk45]

Ik heb volgende code gebruikt om tekst om te zetten naar een email adres :

Sub SjonR()

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

End Sub

Nu werkt dat bij mij prima maar als ik dit toepas met gmail dan verandered het email adres enkel van kleur maar gaat email niet open om iets te verzenden.

Ik heb al alles geprobeerd maar vind niet wat het zou kunnen zijn dat het met gmail niet lukt en met outlook wel.

Iemand een oplossing hiervoor? Alvast op voorhand bedankt.

 

[edmoor]

Wat bedoel je met toepassen met Gmail?
Voorbeeld documentje is gewenst.

 

[marcvk45]

Sorry maar kan geen voorbeeld geven omdat ik met outlook werk, maar het zal proberen het uit te leggen.

Ik heb een adressenbestand in excell. De email adressen stonden hierin als tekst. ik heb die met bovenstaande VB code kunnen omzetten naar echte email adressen. Vroeger stonden die gewoon in het zwart nu in het blauw. als ik op mijne mac op een email adres klik gaat outlook open met email adres ingevuld en kan direct een mailtje verzenden. Mijn kameraad waar ik dit voor gemaakt heb kan enkel op de blauwe tekst van de email adressen klikken en deze worden dan grijs maar verder gebeurd er niks om een mail te kunnen verzenden. Waarschijnlijk is er nog ergens iets fout maar weet niet wat.

 

[edmoor]

Van een Mac weet ik niks, maar heeft hij wel Outlook of een ander als default email programma ingesteld?
Ik ga er vanuit dat dat op een Mac ook kan.

 

[marcvk45]

Ga het eens navragen. Had ook al zoiets in gedachte.

alvast bedankt