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.
Kiitos vastauksista jo etukäteen!
vb6 sähköpostin lähetys
3
722
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 = "osoite@palvtarj.fi"
.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 = "osoite@palvtarj.fi"
.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
- 1742047
Kompostointitarkastaja tuli tarkastukselle!
En ole ikinä kompostoinnut ja eilen kävi kompostointitarkastaja kylässä. Tosi hianoa byrokratiaa taas: "Laki edellyttää,851489Varattais lähihotellista
🥰 huone viikoksi. Oltais vaan ja tilattais huonepalvelusta herkkuja! Viikonloppukin käy jos et viikoksi ehdi ❤ Hyvää1821414Nyt jäi velat perimättä
Mikä idea se talo oli polttaa ja velalliset sisällä nyt jäi rahat saamatta121172Ellen Jokikunnas muistelee Reino-koiraa - Ralph-poika koskettavalla tavalla esiin: "Kiitos, että..."
RIP Reino. Lämmin osanotto suureen suruunne Ellen, Jari ja Ralph. Reino tuli tutuksi monelle suomalaiselle Unelmia Ita401066Martinan aussikulta, missä?
Mihin katosi Martina Aitolehden aussikulta kyselee Seiska!210993- 42908
- 96854
- 85815
Meneekö eläinpuiston johto vaihtoon vaalien jälkeen?
Ähtärissä kuhistaan ja kuiskitaan, että perussuomalaiset esittävät vaalien jälkeen, että eläinpuiston hallitus uusitaan49775