email naar variabel adres

[ronald1986]

Mensen, ik heb twee vragen over het verzenden van een email via vba naar een variabel adres.

ik gebruik nu onderstaande code:

ActiveWorkbook.SendMail "email@email.com", "onderwerp"

Ik zou het bestand eigenlijk willen mailen naar het emailadres dat in een cel in een ander bestand staat.
Het email adres staat in workbook "emailadressen" op sheet "blad1" in cel A1.

Weet iemand hoe ik dit zou kunnen doen?

Daarnaast ben ik erg benieuwd hoe ik tekst aan de email zelf kan toevoegen wanneer deze al geschreven staat in een cel in het werkblad. Weet iemand misschien hoe ik dat voor elkaar kan krijgen?

Bvd!

 

[edmoor]

Kijk hier voor mooie voorbeelden:
http://www.rondebruin.nl/win/section1.htm

 

[wieter]

Klein voorbeeldje gemaakt met de code van Ron De Bruin.
De mailadressen staan op blad 2
Met validatie kan je een mailadres kiezen
De tekst van rang A1 tot F34 wordt gestuurd als Body

ps. Ik zie nu dat de mailadressen in een ander bestand staan.
Het ook mogelijk om het adres uit een ander gesloten bestand te halen,
maar dat is dan een hele onderneming.
Het is eenvoudiger om die adressen te copieëren en in blad 2 te plaatsen.



Bekijk bijlage 181728

 

[ronald1986]

Ok, heb die code beetje aangepast aan mijn situatie en het werkt perfect! bedankt wieter!

Om het emailadres uit een andere worksheet te halen gebruik ik onderstaande:

ActiveWorkbook.SendMail (Workbooks("bonnen").Sheets("Mailadressen").Range("D1").Value), "bonnen"

 

[wieter]

Ha ja, als beide workbooks geopend zijn werkt het op deze manier.
Ik ging van de veronderstelling uit dat het Workbook "Bronnen" niet geopend zou zijn.