Emailadres uit cel halen

[ronald1986]

Goedemiddag,

Ik heb een vraagje over het verzenden van een mail via VBA waarbij het mailadres uit een cel gehaald wordt.

Nu stuur ik het bestand via onderstaande code:

ActiveWorkbook.SendMail "test@voorbeeld.com", ActiveSheet.Range("B1").Value

Nu wil graag het emailadres gebruiken dat in bestand "testbestand" op sheet "Blad1" in cel A1 staat.
Hoe kan ik dit verwerken in bovenstaande regel code?

Bvd!

 

[gast0660]

Hoi,
Mischien heb je iets aan dit ?
http://www.rondebruin.nl/win/s1/outlook/amail5.htm

 

[ronald1986]

Ok, dit heb ik inderdaad al vaker gezien maar daar kom ik helemaal niet uit.

Ik wil eigenlijk de bestaande code gebruiken maar dan met een celverwijzing i.p.v. een statisch emailadres. volgens mij moet dit toch wel kunnen?

 

[gast0660]

Hoi,
Ik wel er wel wat verder op ingaan maar heb je vbtje.zelf heb ik een paar verschillende vbtjes maar iets meer uitleg is wenselijk

 

[ronald1986]

Wat bedoel je met vb'tje zelf?
Onderstaand is mijn hele VB:

ActiveWorkbook.SendMail "test@voorbeeld.com", ActiveSheet.Range("B1").Value

Deze regel verzend het actieve workbook naar het emailadres dat er bij staat.

Het enige dat ik wil is het vaste emailadres dat er nu in staat vervangen door een verwijzing naar de waarde in een cel.

 

[edmoor]

ActiveWorkbook.SendMail ActiveSheet.Range("A1").Value, ActiveSheet.Range("B1").Value

 

[ronald1986]

Dankje Edmoor, maar het gaat er juist om dat het emailadres in cel A1 op Blad1 in een ander workbook staat (workbook: "testbestand")

Is dit ook mogelijk?

 

[edmoor]

Gebruik wat ik zei, maar zet dan dit in A1 van het open werkboek:
='C:\Documenten\[testbestand.xlsx]Blad1'!A1

Waarbij je uiteraard C:\Documenten\ vervangt door de folder waar testbestand.xlsx staat.

 

[ronald1986]

Ok, dank je.

Het bestand waar het emailadres in staat staat echter altijd open wanneer de macro wordt uitgevoerd. Volgens mij kun je dan toch ook verwijzen zonder het pad van het bestand te gebruiken?

 

[OctaFish]

Krijg je dit:

    Email = Workbooks("testbestand").Sheets(1).Range("A1")