vb6 sähköpostin lähetys

Apuvaaaa

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!

3

722

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • -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

    1. Nainen näytät mummolta. :D

      Siks sua ei huoli kukaan.
      Ikävä
      174
      2047
    2. Kompostointitarkastaja tuli tarkastukselle!

      En ole ikinä kompostoinnut ja eilen kävi kompostointitarkastaja kylässä. Tosi hianoa byrokratiaa taas: "Laki edellyttää,
      85
      1489
    3. Varattais lähihotellista

      🥰 huone viikoksi. Oltais vaan ja tilattais huonepalvelusta herkkuja! Viikonloppukin käy jos et viikoksi ehdi ❤ Hyvää
      Ikävä
      182
      1414
    4. Nyt jäi velat perimättä

      Mikä idea se talo oli polttaa ja velalliset sisällä nyt jäi rahat saamatta
      Jämsänkoski
      12
      1172
    5. Ellen 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 Ita
      Tv-sarjat
      40
      1066
    6. Martinan aussikulta, missä?

      Mihin katosi Martina Aitolehden aussikulta kyselee Seiska!
      Kotimaiset julkkisjuorut
      210
      993
    7. Haluaisin sun kanssa yhteisen

      Elämän. Haluun sut.
      Ikävä
      42
      908
    8. Mitä tekisit jos kaivattusi olisi

      humalassa, kun tapaat hänet jossain seuraavalla kerralla?
      Ikävä
      96
      854
    9. Rakkauden kesä 2025

      Oletko valmis? 🥰
      Ikävä
      85
      815
    10. 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 uusitaan
      Ähtäri
      49
      775
    Aihe