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:[email protected]',
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.
Kiitos vastauksista jo etukäteen!
vb6 sähköpostin lähetys
3
899
Vastaukset
- -lähetelijä-
Kannattaa ehkä tutustua mapi (message application programming interfaceen) systeemiin, esim
Public Function send_mail(sendto As String, subject As String, text As String) As Boolean
On Error GoTo ErrHandler
With MAPISession1
.DownLoadMail = False
.LogonUI = True
.SignOn
.NewSession = True
MAPIMessages1.SessionID = .SessionID
End With
With MAPIMessages1
.Compose
.RecipAddress = sendto
.AddressResolveUI = True
.ResolveName
.MsgSubject = subject
.MsgNoteText = text
.Send False
End With
sendmail = True
ErrHandler:
End Function- Apuvaaaa
Tutustin siihen MAPi:in ja löysin siitä vastauksen kysymykseeni se oli:
With MAPISession1
.SignOn
End With
With MAPIMessages1
.SessionID = MAPISession1.SessionID
.Compose
.MsgNoteText = "Info tiedostoon lisäämiesetä"
.RecipAddress = "[email protected]"
.MsgSubject = "Info x.txt"
.ResolveName
.Send
End With
With MAPISession1
.SignOff
End With
ja tonne väliin:
.AttachmentPathName = "c:\x.txt"
Tv. Jukka. Kiitoksia, että vaivauduit!!!! - Apuvaaaa
Tutustin siihen MAPi:in ja löysin siitä vastauksen kysymykseeni se oli:
With MAPISession1
.SignOn
End With
With MAPIMessages1
.SessionID = MAPISession1.SessionID
.Compose
.MsgNoteText = "Info tiedostoon lisäämiesetä"
.RecipAddress = "[email protected]"
.MsgSubject = "Info x.txt"
.ResolveName
.Send
End With
With MAPISession1
.SignOff
End With
ja tonne väliin:
.AttachmentPathName = "c:\x.txt"
Tv. Jukka. Kiitoksia, että vaivauduit!!!!
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Voisin jopa maksaa että saisin nähdä sut mies
Miten helvetissä joku voi olla tollanen kotihiiri. Edes mä en ole noin paha ku sä! Miten sua voi ikinä edes nähdä ?581101Tumman vihreä mercedes
Mikä se on tuo kylää ympäri ajava vihreä mercedes, takakontti tärisee kuin hullu ja välillä kylän juoppojakin kuskailee,11820Miksi tällainen pelottaa ja aiheuttaa joillakin ärtymystä?
"Sitoudun ystävien ja kollegoiden kanssa puuttumaan seksistisiin vitseihin ja vähättelyyn. Sanon ääneen, kun jokin ei ol75785- 53624
Käyttäkää kumia kajaanilaisten naisten kanssa
Elkää ottako riskiä ilman kumia kun saattaa käydä niin että sinusta tuleekin isä lapselle ja elättäjä molemmille.83573Pakkomielle
Tahdon pyytää anteeksi, että olen kaivannut sinua kaikki nämä vuodet ja olet ollut minulle pakkomielle. Nyt on aika pääs45522Oletko nainen enää täällä?
En ole tunnistanut kirjoituksiasi hetkeen. Ainoastaan yhdessä neutraalissa ketjussa, missä ei ollut kyse tunteista. Hyv36504Tietysti olen varovainen,
ei kaikki ole pelkkää epävarmuutta. En halua sotkea mitään, enkä aiheuttaa kenellekään hankaluuksia. Ja luulen että ehkä40487Hurmasit sitten minut
kauneudellasi nainen ja kun sait minut rakastumaan itseesi muutuit ihan porsaaksi etkä välitä vartalostasi enää yhtään.43483Sinun kanssasi
Kahvilassa tapaaminen olisi jotakin niin outoa. Se ei olisi vain kavereiden tapaaminen, koska ei olla oltu oikeita kaver36476