email als cel waarde heeft

[Yariev]

Ik ben aan het zoeken naar de volgende optie in Excel en kom er zelf nog niet echt uit.
Ik wil een email kunnen sturen als er in een cel een waarde voorkomt (er is geen actie als er geen waarde in de cel staat). Is het mogelijk om dit door excel te laten doen, automatisch zodra het sheet wordt geladen.
Iemand een idee in welke richting ik moet zoeken?

ALvast bedankt!

 

[Jan van Asseldonk]

Controleer bij het open van de sheet of de cel een bepaalde waarde heeft en lat afhankelijk daarvan een macro lopen om je mail te versturen.

Voorbeeldje: Als er in A1 iets is ingevuld komt de melding.

Macro in ThisWorkbook

Private Sub Workbook_Open()

If Range("A1").Value <> "" Then
MsgBox ("stuur mail")
End If

End Sub

 

[Yariev]

Dank je, Jan.

Ik krijg nu een message dat ik een mail moet sturen , maar ik zoek eigenlijk meer naar een manier dat de mail ook al gelijk wordt verstuurd .

Uiteindelijk hoop ik het zo ver te krijgen, dat de waarde van cel A1 wordt vergeleken met een kolom in "sheet2".
Als deze overeenkomen moet het een mail sturen naar het emailadres wat in diezelfde rij staat.

Ik geloof dat ik, wil ik hier zelf mee aan de slag gaan, een boek VisualBasic moet aanschaffen of niet?

Bedankt voor any info!

 

[Jan van Asseldonk]

Zoek ook eens even op helpmij naar mail vanuit excel.
Dat is al enkele keren aan de orde geweest.
Een goed boek over visual basic is nooit weg maar ook on-line zijn er diverse cursussen te vinden.

enkele sites met tips en voorbeelden

http://home.planet.nl/~schni000/Excel/excel.htm
http://users.pandora.be/ingrid/excel/
http://users.skynet.be/onderland/Excel.htm
http://www.cpearson.com/excel/ExcelPages.htm
http://www.j-walk.com/ss/excel/files/
http://www.planet-source-code.com/

 

[Yariev]

Zoeken op "mail vanuit excel" levert weinig meer op dan deze thread

Bedankt voor de sites, ik zal eens kijken, staat veel op zag ik.

grtz

 

[Jan van Asseldonk]

Kijk hier even of hier .
Of op het onderdeel over email op de site van Ron de Bruijn

 

[Yariev]

De eerste 2 links ben ik idd eerder tegengekomen.
De site van debruin is hoopvol ...erg veel info.
Bedankt, ik ga verder puzzelen.

 

[MayNiak666]

Macro in ThisWorkbook

Private Sub Workbook_Open()

If Sheets(1).Range("A3").Value = Sheets(2).Range("C4") Then
ActiveWorkbook.SendMail Recipients:=Sheets(2).Range("f4"), Subject:="Onderwerp"
End If

End Sub