Kliknite tukaj, da si ogledate profil, kot ga vidijo drugi
 
Domov > Forum > Računalništvo

Pošiljanje emaila v Visual Basic 6.0

 
 
21.6.2009, 17:15
mene pa zanima, kako bi lahko iz programa poslal email in sicer tako, da bi uporabnik napisal svoj mail, nato pa bi mu program na ta naslov poslal email z že vnaprej napisano vsebino.

spremenil: NikMan (14.12.2010 ob 11.41.22)
 
 
 
21.6.2009, 17:18
Za to boš potreboval DLL knjižico, s katero se boš povezal na SMTP server.

Google: vb email

http://www.example-code.com/vb/email.asp


spremenil: kljuka (21.6.2009 ob 17.19.09)
 
 
 
21.6.2009, 19:36
Seveda lahko. Kot je rekel kljuka, boš za to potreboval vstaviti v aplikacijo nekaj komponent. Za začetek si oglej tale linka, ki sem ju sicer že v eni prejšnji temi objavil:
http://www.youtube.com/watch?v=X6Wy76Utw....

in

http://www.vbdotnetheaven.com/UploadFile....

Erco


spremenil: podtalje (21.6.2009 ob 22.12.46)
 
 
 
21.6.2009, 19:57
Če jez prav vidim, so to navodila za visual basic 2008, jaz pa imam visual basic 6.0
 
 
 
21.6.2009, 19:58
luksorzi, a mojih postov ne bereš?
 
 
 
21.6.2009, 20:05
Če jez prav vidim, so to navodila za visual basic 2008, jaz pa imam visual basic 6.0


Tako je. Preberi kljukin post, sicer je pa v VB 6.0 precej podobno
 
 
 
21.6.2009, 20:40
luksorzi, a mojih postov ne bereš?

Seveda berem , samo na tistemu videu se mi je zdelo bolj simpl
 
 
 
2.7.2009, 11:24
' This Visual Basic example program sends mail with
' a GIF file attachment.
Private Sub SendMail_Click()

' Create a MailMan instance to send email
Dim mailman As New ChilkatMailMan2
' Unlock the email component
mailman.UnlockComponent "UnlockCode"

' Change this to your SMTP server.
' Depending on your SMTP server, you may not need
' the SMTP login or SMTP password.
mailman.SmtpHost = "smtp.earthlink.net"
mailman.SmtpUsername = "MYUSERNAME"
mailman.SmtpPassword = "MYPASSWORD"

' Create an email for sending
Dim email As New ChilkatEmail2
' Set the email subject and body
email.Subject = "test"
email.Body = "this is a test" & vbCrLf & "line 2" & vbCrLf & "-Bill"
email.AddTo "John Doe", "john@chilkatsoft.com"
email.FromAddress = "bill@chilkatsoft.com"
email.FromName = "Bill Doe"

' Add a file attachment to the mail.
Dim contentType as String
contentType = email.AddFileAttachment "dude.gif"
If (contentType = vbNullString ) Then
MsgBox email.LastErrorText
Exit Sub
End If

' Send mail. Returns 1 if successful, 0 if failed.
success = mailman.SendEmail(email)
If (success = 0) Then
MsgBox mailman.LastErrorText
End If


End Sub


kaj pravite na to kodo?
 
 
 
2.7.2009, 12:17
Kljub temu potrebuješ SMTP server
 
 
 
2.7.2009, 12:25
Kako pa ga uporabim?
Prenesel sem si Free SMTP Server 2.5
Je to v redu?
 
 
Prijava in registracija
 
 
 
Zmaga.com ponuja brezplačno in razumljivo učenje računalniških programov, vas na enkraten način spozna z različnimi svetovnimi jeziki, s podrobno obrazloženimi recepti prikaže čare kulinarike in vam prežene strahove pred domačimi opravili.
 
 
Poleg tega lahko prebirate poučne članke, ki so namenjene širjenju naše splošne razgledanosti ter preverite svoje znanje z priljubljenim in enostavnim sistemom za preverjanje znanja. Če med vsebinami, ki se dodajajo vsak dan, ne najdete želenega znanja, je za vaša vprašanja na voljo dobro obiskan forum, kjer lahko tudi aktivno sodelujete. V primeru, da bi radi svoje praktično znanje delili z ostalimi, pa to lahko storite preko preprostega vmesnika za dodajanje vsebin. Zmagajte z znanjem z Zmaga.com!