Edellinen viestini oli sekava!!
Tein sen käyttäen kaavaa =JOS(G16J16;"TRUE";"FALSE"))
Nyt olis tarkoitus saada toimimaan sellainen"palikka" joka lähettäis sähköpostin kun TRUE arvo täyttyy?!
Olisiko jollekin tuttua tuollaisen tekeminen?
Tein sen käyttäen kaavaa =JOS(G16J16;"TRUE";"FALSE"))
Nyt olis tarkoitus saada toimimaan sellainen"palikka" joka lähettäis sähköpostin kun TRUE arvo täyttyy?!
Olisiko jollekin tuttua tuollaisen tekeminen?
Vastaukset 1
Vanhimmat
Kaivoin yhden vanhan aliohjelman jota olen joskus johonkin käyttänyt:
Sub Viesti(VastaanOttaja As String, Aihe As String, Viesti As String)
Dim myOlApp As New Outlook.Application
Dim ExNameSpace As NameSpace
Dim myItem As Object
Set ExNameSpace = myOlApp.GetNameSpace("MAPI")
ExNameSpace.Logon "Käyttäjätunnus", "salasana"
Set myItem = myOlApp.CreateItem(olMailItem)
With myItem
.Recipients.Add (VastaanOttaja)
.Subject = Aihe
.Body = Viesti
.Send
End With
myOlApp.Quit
End Sub
Makroon pitää lisätä "referensis", täppä kohtaan Microsoft Outlook 10.0 object library. Aliohjelmalle välitetään parametrit: VastaanOttaja, Aihe, Viesti. Nimet kertonevat parametrien sisällön.
Toimii muistaakseni vain Outlookissa joka vaatii loggautumisen. Jos ohjelma kaatuu voi Outlook jäädä "roikkumaan" muistiin ja pitää poistaa ko. prosessi tehtävänhallinnalla. Viilaa paremmaksi.