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 µÄÔ´Âë http://www.damipan.com/file/3wNoKLW.html
תΪVB.NETÔ´Âë.
СµÜÍêÈ«ÊÇÐÂÊÖ ²»¶®µÄ˵.Âé·³¸÷λ°ïæһÏÂ
ÎÒµÄEMAILÊÇ:4452 ......
¿´ÁËһЩVB iniÎļþдÈë¶ÁÈ¡µÄ·½·¨ µ«ÊÇ»¹ÊDz»ÖªµÀÔõôд£¬ÉÏÃæÐ´Á˺ܳ¤ ºÜ¶à£¬µ«ÊÇÎÒ²»ÖªµÀÔõôÓã¬ÎÒÏëÎÊÒ»ÏÂÔõÑùд²ÅÄÜʵÏÖÔÚTEXT1ÖÐд×Ö£¬È»ºóµãCommand1Ìá½»£¬È»ºóTEXT1ÀïÃæµÄÊý×Ö¾Íд½øINIÀïÃæ[Section]µÄKey1 ......
Private Sub Form_Load()
recs = Adodc1.Recordset.RecordCount 'Çóµ±Ç°¼Ç¼Êý
If recs > 0 Then 'ÒÑÓп¼Éú
Adodc1.Recordset.MoveLast 'ÒÆµ½×îºóÒ»Ìõ¼Ç¼
num = V ......
DIM ds as new DataSet
ÎÒÕâÑùÉùÃ÷ ÔõÀÏÊDZ¨ Óû§¶¨ÒåÀàÐÍ䶨Ò壿 Õâ¸öÐèÒªÒýÓÃʲôÂ𣿣¿
ǰÌáÊÇDataSet¶ÔÏóÒª´æÔÚ,¾ÍÊǶÔÏóä¯ÀÀÆ÷ÖÐÓÐËü.ûÓоÍÒªÒýÓÃ.
datasetÊÇADO.NET¶ÔÏó
Èç¹ûÄãÓõÄÊÇvb.net£¬ÄÇôÔÚ´ ......