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

vb×Ô¶¯·¢ËÍÓʼþ - VB / »ù´¡Àà

ΪʲôÎÒÏëÑ­»·×Ô¶¯·¢ËÍÓʼþµÄʱºò,¾ÍÖ»ÓеÚÒ»·âÄÜ×Ô¶¯·¢ËÍ,ÆäËüºóÃæµÄÓʼþ¶¼Ö»ÄÜ´´½¨,²»ÄÜ×Ô¶¯·¢ËÍ

Private Sub send_mail_Click() '·¢ËÍÓʼþ֪ͨ

  Do While Not TDBG_Dept.EOF

  If A>B Then 
  Dim olapp As Object
  Dim oitem As Object

  Set olapp = CreateObject("outlook.Application")
  Set oitem = olapp.CreateItem(0)
  With oitem
  .Display
  .Subject = "TEST" 'Ö÷Ìâ
  .To = "xx@163.com" 'ÊÕ¼þÈË
  .Body = "test" 'ÓʼþÄÚÈÝ
  DoEvents
  SendKeys "%s", Wait:=True 'Ä£Äâ¼üÅÌÈ·ÈϹ¦ÄÜ
  End With
   
  Set olapp = Nothing
  Set oitem = Nothing
  TDBG_Dept.MoveNext
  Else
  Exit Sub
  End If

  Loop

End Sub
ÎҼǵÃÎÒÒÔǰÓÐÕâ¸öÀý× ²»ÖªµÀÔÚÄÄÈ¥ÁË

»òÕßÓÐʲôÆäËü·½·¨¿ÉÒÔʵÏÖ×Ô¶¯Ñ­»··¢ËÍÓʼþÂð?

°ïÄã¶¥

½«olapp¶ÔÏóÔÚ´°ÌåÏÔʾµÄÊôÐÔÉèÖÃΪFalse
Ö±½ÓÓÃ.Send() ·½·¨ÊÔÊÔ


ÔÞ¸ö

ÎÒ×îÏȾÍÊÇÖ±½ÓÓÃ.Send()·½·¨µÄ.µ«ÊÇÿ´Î·¢ËͶ¼»áµ¯³ö"ÓÐÒ»¸ö³ÌÐòÕýÊÔͼÒÔÄúµÄÃûÒå×Ô¶¯·¢Ë͵ç×ÓÓʼþ.ÊÇ·ñÔÊÐ


Ïà¹ØÎÊ´ð£º

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

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


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

תΪVB.NETÔ´Âë.

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

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

°ïÎҸĸÄÕâVBÌâ - VB / »ù´¡Àà

°ïÎÒ¸Ä¸Ä ÎÒ×ܾõµÃÓÐÎÊÌâ
Type ID
  number As Single
  score As Integer
  name As String * 6
End Type
Dim personl As ID, i%
Private Sub Command1_Click()
 i = 0
&nbs ......

³õѧvb£¬Çë¸÷λ´óϺ¸øµã½¨Òé - .NET¼¼Êõ / VB.NET

¸Õ½Ó´¥vb6.0£¬ÓÐЩÃþ²»µ½µÄ¸Ð¾õ£¬¾´Çë¸÷λ´óϺ¸øµã½¨Ò飡£¡£¡
²»»á°É£¬ÍƼöѧϰ.NET¡£Ë³±ãÍÆ¼öʵÓôúÂëÍøÕ¾http://bingning.net/free/source/index.html¡£

Èç¹ûû»ù´¡ ¾ÍÓÃÒ×ÓïÑÔ°É ÖÐÎıà³ÌÄØ ´úÂë¶¼ÊÇÖÐÎÄ ......

vbȱÉÙ¶ÔÏó - VB / »ù´¡Àà

VB code:
Private Sub Command4_Click()
Dim TempFile As Long
Dim LoadBytes() As Byte
Dim txtPath As String
TempFile = FreeFile
txtPath = c:
Open txtPath \ domain.txt For Binary ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ