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
903
Vastaukset 3
- -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
Gallup: Kansalaiset eivät usko velkajarruun
Puolet suomalaisista ei usko velkajarrun vaatimien sopeutusten toteutuvan, kertoo Iro Researchin kyselytutkimus. Kokoom1201309- 2281059
- 67980
- 58942
Sinulle nainen
En ehkä koskaan osannut sanoa tätä oikein. Minun vaikeuteni luottaa liittyi ennen kaikkea menettämisen pelkoon. Siihen66916Martsusta tuli leuhka
Ja ylimielinen. Hän ei nosta persettäkään ilmaseksi . Luulempa et nämä ei tee hyvää hyvinvointivalmennuksille.... Nannal250860Kuisla Group Oy jättänyt yrityssaneeraushakemuksen
Samalla yrityssaneeraukseen on hakeutunut Kuisla henkilökohtaisesti ja Seinäjoen Motelli Oy, joka omistaa Sorsanpesän ki37798Hei rakkaani.
Kohtaaminen lähestyy. Miten teemme sen? Kumpi ottaa yhteyttä vai törmäämmekö jossain sattumalta? Tuleva vaimosi70775Ethän voinut nainen tietää, että rikot rikotun
Omaa elämää taas mietin aamuyön tunteina. En vieläkään löytänyt muistin sokkeloista ainuttakaan onnen hetkeä. Kaipuu on72762- 42726
Uskallanko laittaa sulle viestiä?
Se viesti on tossa valmiina ja lähettämistä vaille valmis. Kun ei kauhee sti tunneta niin eipä sillä olisi niin väliä. S58690- 66678
Kiulu myynnissä!
Kiulu hakee taas uutta yrittäjää. https://www.yritysporssi.fi/etela-pohjanmaa-lansi-suomi-finland/myytavat/yritykset/ma26608- 77528
Mies joka on oikeasti kiinnostunut
Ja näkee sut pitkäaikaisena kumppanina, siirtää vaikka vuoria selvittääkseen asiat eikä ota pienintäkään riskiä menettää107517Tulisiko naisille asettaa korkeammat eläkemaksut
Tämä tuli mieleeni kun luin aamun lööppejä. Japanissa alkaa olla "uutta nuorisoa" ihan urakalla, ikä alkaa sadan jälkeen181513Et pysty peittämään minulta
Sinä olet hyvä peittämään asioita niin halutessasi. Pystyt pitkiäkin aikoja salaamaan juttuja. Juuri mietin tuossa, olet47504- 24494
- 18488
Mitä oikein tapahtui? Maajussi-Jetta sai tylyt pakit - Sulhoehdokas selittää: "Ei lentänyt kipinät"
Maajussille morsian -sarjassa etsitään rakkautta ja rinnalle kumppania. Yksi maajusseista on Jetta - liikunnallinen ja12487