Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

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Ò²ºÜ²»´í£¬Îȶ¨ÐÔºÜÇ¿£¬¿ÉÒÔÒ»ÊÔ...


Ïà¹ØÎÊ´ð£º

ÇëºÃÐÄÈ˰ïÎÒ°ÑVBÔ´ÂëתΪVB.NET~

Ï£Íû´ó¼ÒÄܹ»°ïÎÒÏÂ.¸ÐлÁË..


Ô´Âë´«ÔÚ´óÃ×ÅÌ VB6 µÄÔ´Âë http://www.damipan.com/file/3wNoKLW.html

תΪVB.NETÔ´Âë.

СµÜÍêÈ«ÊÇÐÂÊÖ ²»¶®µÄ˵.Âé·³¸÷λ°ïæһÏÂ

ÎÒµÄEMAILÊÇ:4452 ......

VB iniÎļþдÈë ¶ÁÈ¡ - VB / »ù´¡Àà

¿´ÁËһЩVB iniÎļþдÈë¶ÁÈ¡µÄ·½·¨ µ«ÊÇ»¹ÊDz»ÖªµÀÔõôд£¬ÉÏÃæÐ´Á˺ܳ¤ ºÜ¶à£¬µ«ÊÇÎÒ²»ÖªµÀÔõôÓã¬ÎÒÏëÎÊÒ»ÏÂÔõÑùд²ÅÄÜʵÏÖÔÚTEXT1ÖÐд×Ö£¬È»ºóµãCommand1Ìá½»£¬È»ºóTEXT1ÀïÃæµÄÊý×Ö¾Íд½øINIÀïÃæ[Section]µÄKey1 ......

Çóvb´óϺ¿´Ò»Ï°¡£¡£¡£¡

Private Sub Form_Load()
  recs = Adodc1.Recordset.RecordCount 'Çóµ±Ç°¼Ç¼Êý
  If recs > 0 Then 'ÒÑÓп¼Éú
  Adodc1.Recordset.MoveLast 'ÒÆµ½×îºóÒ»Ìõ¼Ç¼
  num = V ......

¹ØÓÚVB DIM ds as new DataSetÎÊÌâ - VB / »ù´¡Àà

DIM ds as new DataSet
ÎÒÕâÑùÉùÃ÷ ÔõÀÏÊDZ¨ Óû§¶¨ÒåÀàÐÍ䶨Ò壿 Õâ¸öÐèÒªÒýÓÃʲôÂ𣿣¿
ǰÌáÊÇDataSet¶ÔÏóÒª´æÔÚ,¾ÍÊǶÔÏóä¯ÀÀÆ÷ÖÐÓÐËü.ûÓоÍÒªÒýÓÃ.

datasetÊÇADO.NET¶ÔÏó
Èç¹ûÄãÓõÄÊÇvb.net£¬ÄÇôÔÚ´ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ