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:[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!

3

792

    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 = "[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

    1. 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 teh
      Ikävä
      43
      3007
    2. Ensi kesänä

      Näin kesän viimeisenä minuutteina ajattelen sinua. Olisiko seuraava kesä "meidän" kesä? Tänä vuonna ei onnistuttu, mutta
      Ikävä
      61
      2961
    3. Sinä, ihastukseni

      Mitä haluaisit tehdä kanssani ensimmäisenä?
      Ihastuminen
      42
      2367
    4. Tiedät ettei tule toimimaan.

      Mielenterveys ei kummallakaan kestä.
      Ikävä
      31
      1863
    5. Okei, myönnetään,

      Oisit sä saanut ottaa ne housutkin pois, mutta ehkä joskus jossain toisaalla. 😘
      Ikävä
      25
      1719
    6. Anne Kukkohovin karmeat velat ovat Suomessa.

      Lähtikö se siksi pois Suomesta ? Et on noin kar? mean suuret velat naisella olemassa
      Kotimaiset julkkisjuorut
      72
      1674
    7. Onko kaivatullasi

      himmeä kuuppa?
      Ikävä
      48
      1586
    8. Mihin hävisi

      Mihin hävisi asiallinen keskustelu tositapahtumista, vai pitikö jonkin Hannulle kateellisen näyttää typeryytensä
      Iisalmi
      77
      1275
    9. On jo heinäkuun viimeinen päivä.

      En taida nähdä sinua koskaan.
      Rakkaus ja rakastaminen
      37
      1247
    10. Lähtikö korvat

      puhtaaksi vaikusta?
      Tuusniemi
      79
      1070
    Aihe