Kirjautuminen

Haku

Tehtävät

Keskustelu: Ohjelmointikysymykset: VB6: vb6 sähköpostin lähetys

Apuvaaaa [01.06.2009 22:06:23]

#

Olisiko kellään "lainata" koodipätkää sellaiseen toimintoon vb6:lla, mikä lähettäisi ennalta kirjoitettuun s-postiin x.txt tiedoston, kun nappia painetaan.

Tarkoitus on se, että itse ohjelma kirjoittaa x.txt tiedostoon tietoja ja aika ajoin se haluttaisiin lähettää edelleen.

c++:lla tämä menee jotenkin näin:

cmc_recipient recipient = {
'Tietokenttä'
cmc_type_individual,
'smtp:etunimi.sukunimi@palvelutarj.fi',
cmc_send_documents(x.txt)
cmc_recip:last_element,
null };

On tietenkin kaksi mahdollisuutta 1. tehdä erillinen exe, jossa on nämä ominaisuudet ja pääohjelma käy vain potkaisemassa exen käyntiin, joka suorittaa postituksen ja sammuu sen jälkeen automaattisesti.
2. Nakutella vb-ohjelmaan lähetä buttonin alle koodi, joka toteuttaa tehtävän.

Kakkosvaihtoehto olisi mielestäni mielekkäämpi. Ei jakauttaisi ohjelmaa kauhean moneksi osaksi.

En siis kaipaa apua txt tiedoston kirjoituksen ja lukemisen takia, vaan s-postin lähetykseen.

Myöskään Shell(outlook.exe .....) ei käy, koska haluan ohjelman toimivan mahdollisimman yksinkertaisesti ja helposti. Lisää exejä en juuri kaipailisi tähän, koska niitä tulee jo nyt pari ketaletta.

En kai ole liian vaativa?
Kiitos vastauksista jo etukäteen!

Grez [01.06.2009 23:07:12]

#

Onhan noita vaihtoehtoja enemmänkin, kuten kutsua ulkoista DLL:ää, ActiveX -komponenttia, yms. Käytännssä vaikka 2. vaihtoehdossasi implementoisit oman SMTP-clientin, niin joudut joka tapauksessa kutsumaan ulkoista kirjastoa vekkoon liikennöimiseksi.

Apuvaaaa [03.06.2009 00:32:00]

#

Jep eipä näköjään onnistu ilmat tuota API:a. Ts. MAPI:a. Löysin jostain vähän jeesiä ja nakutin clickki puttonin alle:

With MAPISession1
.SignOn
End With

With MAPIMessages1
.SessionID = MAPISession1.SessionID
.Compose
.MsgNoteText = "Info tiedostoon lisäämiesetä"
.RecipAddress = "osoite@palvtarj.fi"
.MsgSubject = "Info x.txt"
.ResolveName
.Send
End With
With MAPISession1
.SignOff
End With

Nyt rokkaa käyttäjä ei näe, kun viesti lähtee, eikä hänen tarvitse tehdä mitään ylimääräistä, kuten kirjoitella outlookkiin tmv. osotteita tai semmoisia. Lisäksi käyttäjä voi jatkaa ohjelman käyttöä ilman mitään viiveitä, mikä myös oli yksi tavoitteistani.

Vielä on ongelmana millä komennolla saan tuon x.txt tiedoston mukaan tuohon mailiin. Sehän tässä nyt kuitenkin olisi tärkein.

Kirjallisuudesta näköjään on turha hakea infoa, kun käsillä olevat eepokset eivät tunne edes ko. MAPIA tai sen komponentteja.

Eli jeesiä kaivattais lisää!

Kiitoksia vastauksista jo etukäteen!

neau33 [03.06.2009 10:20:22]

#

MORO!

Olisikohan tästä linkistä Apuvaaaa ?

Apuvaaaa [03.06.2009 22:16:02]

#

Kiitoksia Nea

Linkistä oli apuvaaaa. Lisäsin tuon .AttachmentPathName = "c:\x.txt" -komennon ja tiedosto lähti samantein mailina eteenpäin.

Vastaus

Aihe on jo aika vanha, joten et voi enää vastata siihen.

Tietoa sivustosta