| |
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)
|
| |
| |
Če jez prav vidim, so to navodila za visual basic 2008, jaz pa imam visual basic 6.0
|
| |
| |
luksorzi, a mojih postov ne bereš?
|
| |
| |
Č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
|
| |
| |
luksorzi, a mojih postov ne bereš?
Seveda berem , samo na tistemu videu se mi je zdelo bolj simpl
|
| |
| |
' 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?
|
| |
| |
Kljub temu potrebuješ SMTP server
|
| |
| |
Kako pa ga uporabim?
Prenesel sem si Free SMTP Server 2.5
Je to v redu?
|
| |
Prikazujem 1 od skupno 2 strani |
|