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
792
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
Tukalaa kuumuutta
Tietäisitpä vaan kuinka kuumana olen käynyt viime päivät. Eikä johdu helteestä, vaan sinusta. Mitäköhän taikoja olet teh433007Ensi kesänä
Näin kesän viimeisenä minuutteina ajattelen sinua. Olisiko seuraava kesä "meidän" kesä? Tänä vuonna ei onnistuttu, mutta612961- 422367
- 311863
Okei, myönnetään,
Oisit sä saanut ottaa ne housutkin pois, mutta ehkä joskus jossain toisaalla. 😘251719Anne Kukkohovin karmeat velat ovat Suomessa.
Lähtikö se siksi pois Suomesta ? Et on noin kar? mean suuret velat naisella olemassa721674- 481586
Mihin hävisi
Mihin hävisi asiallinen keskustelu tositapahtumista, vai pitikö jonkin Hannulle kateellisen näyttää typeryytensä771275- 371247
- 791070