send mail ".to = range ("A1")

[JKlerks]

Goedemiddag,

ik wil een email verzenden met VBA naar een e-mailadres dat in een vaste cel in het document staat.

Ik heb van

    With OutMail
        .To = "test@gmail.com"

dit gemaakt

    With OutMail
        .To = Range("AH1")

maar dat geeft een foutmelding. Hoe moet ik de verwijzing wel opnemen?

NB ik heb meedere fora bekeken, maar ik kan dit specifieke probleem en oplossing niet vinden

 

[edmoor]

Denk je niet dat het handig is om ons ook de foutmelding te laten weten?

 

[JKlerks]

En dan bedenk je het ineens. Onderstaande werkt in ieder geval voor mij

    With OutMail
        .To = ActiveSheet.Range("AH1").Value
        .CC = ActiveSheet.Range("AJ1").Value

 

[edmoor]

Tip:
Bouw de gegevens voor With OutMail op buiten de With Outmail

With Activesheet
    mTo = .Range("AH1").Value
    mCC = .Range("AJ1").Value
End With

With OutMail
    .To = mTo
    .CC = mCC