¿ÉÒÔ½«Õâ¶Î´úÂëǶÈëaccessµÄÄ£¿é¡¢excelµÄºêÖÐÔËÐС£

³ÌÐòÒªÇó£º

ÐèÒªÒýÓÃ"microsoft outlook x.x library"

´úÂ룺

sub email_send()

Dim olkapp As Outlook.Application
Dim newmail As MailItem
Dim emailadd,para as String

Set olkapp = CreateObject("outlook.application")
Set newmail = olkapp.CreateItem(olMailItem)

'ÓʼþÕýÎÄÄÚÈÝ
para = para+"ףдº¿ìÀÖ£¬²¢ÓÑÇéÌáÐÑ×¢ÒâеÄÓʼþ²¡¶¾¡£"

'ÊÕ¼þÈ˵ÄemailµØÖ·£¬ÕâÀïûÓÐÊäÈëÄÚÈÝ¡£
emailadd = ""

With newmail

.To = emailadd
.Subject = "дº¿ìÀÖ" ' ÓʼþµÄÖ÷Ìâ
.Importance = olImportanceHigh 'ÓʼþµÄΪÖØÒªµÈ¼¶
.Body = para '½«ÓʼþÕýÎÄÄÚÈÝÖ¸¶¨para±äÁ¿ÄÚÈÝ

.Send '·¢ËÍ

End With

end sub

--
Outlook °æ ¡¢Access & Sql server °æ °æÖ÷

--------------------------------------------------------------------------------
Ïà¹ØÎÄÕÂ
ʲôÊÇ API£¿ 2004-1-28 15:01:53
ÈçºÎ½¨Á¢¼òµ¥µÄ³¬¼¶Á¬½Ó£¿(ShellExecute) 2003-11-6 20:39:18
¶Ô Microsoft Office ÃüÁîÀ¸½øÐиü¶à±à³Ì 2003-10-17 19:51:34
MS Jet SQL for Access 2000Öм¶Æª (III) 2003-10-17 18:51:47
MS Jet SQL for Access 2000Öм¶Æª (II) 2003-10-17 18:51:01
Êý¾Ý¿â¹æ·¶»¯¼¼ÇÉ 2003-10-10 10:38:06
Æô¶¯¿ØÖÆÃæ°åÃüÁî´óÈ« 2003-10-10 10:21:08