vb SMTP·¢ËÍÓʼþÎÊÌ⣿£¿£¿
ÏȰÑSMTP.ocx¿Ø¼þÔÚϵͳÖÐ×¢²á£¬ÔÚvbÖÐÎÒÊÇÕâÑùµ÷Óã¬ÏȽ¨Á¢Ò»¸ö¹¤³Ì£¬ÔÚÒ»¸öformÖУ¬°Ñ¸Õ×¢²áSMTP.ocx¿Ø¼þµ÷ÓóöÀ´£¬ÍÏ·ÅÔÚ½çÃæÉÏ£¬¿Ø¼þÃû³Æ¸ÄΪ¡°SMTP_Test¡±£¬´úÂëÈçÏ£º
With SMTP_Test
.Server = "10.4.250.52"
.Port = 25
.Mailfrom = "smileguo@strcn.com"
.SendTo = "93035426@qq.com"
.MessageSubject = "AA"
.MessageText = "BBB"
.SendEmail
End With
´úÂë²âÊÔûÓдíÎ󣬷¢ËͶ¼Ò»²½²½Ö´ÐУ¬³ÌÐòûÓгöÈκδíÎó£¬×îºó¾ÍÊǶԷ½ÊÕ²»µ½Óʼþ£¿£¿£¿
Çë½Ì¸ßÊÖ£¿£¿
" Email.Send "µ½ÕâÀï·¢ËÍʧ°Ü£¡£¡£¡£¡
ÊDz»ÊǸúÍøÂçÓйأ¿£¿£¿
£¿£¿/£¿
»¹ÊDz»ÐУ¿
£¿£¿£¿
????????????
With SMTP_Test
.Server = "10.4.250.52"
.Port = 25
.Mailfrom = "smileguo@strcn.com"
.SendTo = "93035426@qq.com"
.MessageSubject = "AA"
.MessageText = "BBB"
.SendEmail
End With
ÎÒÊÇÏëÓÃÕâ´úÂë·¢ËÍ £¿£¿£¿
±ðÈ˺ÃÐİïÄ㣬ÄãÔõô²»ÌýȰѽ
°¦£¬²»ÓÃSMTP.ocx£¬²»ÖªµÀÊÇ·ñ¹ÜÓã¬ÏÂÔØ¸ösmtp.dll£¬ºÃÓÃ
smtp.dllͨ¹ýsmtpÐÒé·¢ËÍÓʼþ£¬Îª±ê×¼windows dll
ÓÐÁ½¸öµ¼³öº¯Êý
1.SendMailº¯Êý ·¢ËÍÓʼþÖ÷º¯Êý
2.GetSmtpErrorº¯Êý µ±·¢ËÍʧ°ÜʱʹÓøú¯ÊýÈ¡µÃʧ°ÜµÄÔÒò (±ÈÈçÓû§ÃûÃÜÂë´íÎó)
jmailÒ²ºÜ²»´í£¬Îȶ¨ÐÔºÜÇ¿£¬¿ÉÒÔÒ»ÊÔ...
Ïà¹ØÎÊ´ð£º
¸Õ½Ó´¥vb6.0£¬ÓÐЩÃþ²»µ½µÄ¸Ð¾õ£¬¾´Çë¸÷λ´óϺ¸øµã½¨Ò飡£¡£¡
²»»á°É£¬ÍƼöѧϰ.NET¡£Ë³±ãÍÆ¼öʵÓôúÂëÍøÕ¾http://bingning.net/free/source/index.html¡£
Èç¹ûû»ù´¡ ¾ÍÓÃÒ×ÓïÑÔ°É ÖÐÎıà³ÌÄØ ´úÂë¶¼ÊÇÖÐÎÄ ......
Êý¾Ý¿âÃ²ËÆÒѾÁ¬½ÓÉÏÁËvb£¬£¬¿ÉÊÇΪʲôÊý¾Ý¿âÉϵÄÊý¾Ý²»ÄÜÏÔʾÔÚ¿ò±íÖÐÄ󣿣¿£¿
¾ßÌåµÄ´úÂ룿
ÎÞÂëÎÞÕæÏ࣡
Äã°ÑÀºÇò±§ÔÚ»³À¾ÍÄÜԶͶµÃ3·Ö£¿
Âé·³¸÷λ´óϺÁ˰¡¡£¡£¡£
Private Sub Comm1_Click()
& ......
ÎÒÔÚÀàÖÐÓÐÒ»¸öº¯Êý
Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean
siteconfigÊÇÎÒ×Ô¶¨ÒåÀàÐ͵ÄÊý¾Ý£¬ÎªÊ²Ã´»áÌáʾ¡°Ö»ÓÐÔÚ¹«¹²¶ÔÏóÄ£¿éÖж ......
DIM ds as new DataSet
ÎÒÕâÑùÉùÃ÷ ÔõÀÏÊDZ¨ Óû§¶¨ÒåÀàÐÍ䶨Ò壿 Õâ¸öÐèÒªÒýÓÃʲôÂ𣿣¿
ǰÌáÊÇDataSet¶ÔÏóÒª´æÔÚ,¾ÍÊǶÔÏóä¯ÀÀÆ÷ÖÐÓÐËü.ûÓоÍÒªÒýÓÃ.
datasetÊÇADO.NET¶ÔÏó
Èç¹ûÄãÓõÄÊÇvb.net£¬ÄÇôÔÚ´ ......