c_c_lai

¦^´_ 14# jackyliu
¦A­×¥¿«á³sµ²²£¥Íªº°T®§¡G(¤w¸g¥[¤JcdoSendUsingPort µ¥°Ñ¼Æ)
ÃöÁä©ÊÀ³¬OµLªk¥¿½T³sµ² SMTP Server¡C

¤U¸ü (27.07 KB)

2013-8-29 08:35

1. Sub sendEMail(fd As String)
   
2.     Const cdoSendUsingPort = 2
   
3.     Const cdoBasic = 1
   
4.     Dim objEmail As Object, CDO_Config As Object
   
5.     Dim SMTP_Config As Variant
   
6.     Dim strSch As String
   
7. 
   
8.     strSch = "http://schemas.microsoft.com/cdo/configuration/"
   
9.     Set objEmail = CreateObject("CDO.Message")       '  «Ø¥ß CDO ª«¥ó
   
10.    
    
11.     On Error GoTo debugErr
    
12.     Set CDO_Config = CreateObject("CDO.Configuration")
    
13.     With CDO_Config.Fields
    
14.         .Item(strSch & "sendusing") = cdoSendUsingPort
    
15.         .Item(strSch & "smtpserver") = "SMTP.ServerName.Com"
    
16.         ' Only used if SMTP server requires Authentication
    
17.         .Item(strSch & "smtpauthenticate") = cdoBasic
    
18.         .Item(strSch & "sendusername") = "[email protected]"
    
19.         .Item(strSch & "sendpassword") = ""
    
20.         .Update
    
21.     End With
    
22. 
    
23.     With objEmail
    
24.         Set .Configuration = CDO_Config
    
25. 
    
26.         .From = "[email protected]"               '  ±H¥óªÌ¡]ºô°ì¥²¶·¦s¦b¡^
    
27.         .To = "[email protected]"                 '  ¦¬¥óªÌ
    
28.         .Subject = "CDO¶l¥ó´ú¸Õ"                    '  ¶l¥ó¥D¦®
    
29.         .TextBody = "¶l¥ó´ú¸Õ¥»¤å"                 '  ¶l¥ó¤º¤å
    
30.    
    
31.         .AddAttachment fd
    
32.         .Send
    
33.     End With
    
34.    
    
35. debugErr:
    
36.     If Err.Description <> "" Then MsgBox Err.Description
    
37.     Set objEmail = Nothing
    
38.     Set CDO_Config = Nothing
    
39. End Sub

½Æ»s¥N½X

c_c_lai

¦^´_ 14# jackyliu
¦]¬°µLªk±o¨ì SMTP Server ªº¦ì§}¡A§Ú§â°õ¦æµ²ªG¦C¥Ü¦p¤U¡C
¤§«e©p¬O¦p¦ó¶Ç°e¥X¥h¡H¯à§_§â­ì½Z¤W¶Ç´£¨Ñ¹ê°ÈÀ³¥Î¡C

¤U¸ü (27.12 KB)

2013-8-29 08:09

¼Ï¯Ã¾ã²z§¹²¦«á½Æ»s¨ì·sªºÀÉ®×°ÝÃD.rar (24.06 KB)

¤U¸ü¦¸¼Æ: 1

2013-8-29 08:10

c_c_lai

¦^´_ 14# jackyliu
³o¬O©p©Ò­nªº¶Ü¡H

1. Sub Ex()
   
2.     Dim fs As String
   
3.    
   
4.     fs = ThisWorkbook.Path & "\" & Format(Now, "yyyy_mm_dd hhmm") & ".xls"  
   
5.     sendmail(fs)
   
6. End Sub
   
7. 
   
8. Sub sendmail(fs As String)
   
9.    CDO_Mail_Object.AddAttachment fs
   
10.     CDO_Mail_Object.Send
    
11. End Sub

½Æ»s¥N½X

jackyliu

¦^´_ 13# c_c_lai

§Ú¦b·Qfs±o¨ì·sÀɮצWºÙ©M¸ô®| , ±N¦¹°T®§µ¹ Sub sendmail()°Æµ{¦¡, Sub sendmail()°Æµ{¦¡´N¥i¥Hªþ¥[Àɮפ覡,mail¥X¥h¤F....
Sub main()
fs = ThisWorkbook.Path & "\" & Format(Now, "yyyy_mm_dd hhmm") & ".xls"  '¦sÀÉÀɦW
End Sub

Sub sendmail()°Æµ{¦¡,³o¸Ì¤@ª½¬O¤£¥X¨Ó,­n¦p¦óªþ¥[·s«Ø¥ßªºÀÉ®×(ÀɦW¬°yyyy_mm_dd hhmm.xls)
CDO_Mail_Object.AddAttachment "D:\TEMP\test.xls" ³o¬O§Ú¤§«e«ü©w¦P¤@­ÓÀɮתº¤è¦¡,¤£ª¾¹D­n«ç»ò§ï
End Sub

¥H¤W, ½ÐªO¤j¨ó§U !

c_c_lai

¦^´_ 12# jackyliu
¦³Ãö Send Mail Using CDO¡A§Ú±q°ê¥~ºô¯¸ºK¿ý¤F¤@½g¡A½Ð°Ñ¦Ò¡G

1. ' Send Mail Using CDO
   
2. Public Sub testCDO()
   
3. '  Purpose   Demondtrate Sending an Email with an attachment using CDO (Collaboration Data Objects)
   
4. '           Uses Late Binding - Does not need a reference to the Microsoft CDO For Windows library
   
5. '           cdosys comes innstalled as standard on Windows 2K and higher workstations and servers
   
6. '           This code will fail on NT4, Win 98, and Win 95 where the cdosys.dll is not present
   
7. '  Author    Ron Weiner    [email protected]
   
8. '           Copyrite © 2004-2005 WorksRite Software Solutions
   
9. '           You may use this code example for any purpose what-so-ever with
   
10. '           acknowledgement. However, you may not publish the code without
    
11. '           the express, written permission of the author.
    
12.     Const cdoSendUsingPort = 2
    
13.     Const cdoBasic = 1
    
14.     Dim objCDOConfig As Object, objCDOMessage As Object
    
15.     Dim strSch As String
    
16. 
    
17.     strSch = "http://schemas.microsoft.com/cdo/configuration/"
    
18.     Set objCDOConfig = CreateObject("CDO.Configuration")
    
19.     With objCDOConfig.Fields
    
20.         .Item(strSch & "sendusing") = cdoSendUsingPort
    
21.         .Item(strSch & "smtpserver") = "SMTP.ServerName.Com"
    
22.         ' Only used if SMTP server requires Authentication
    
23.         .Item(strSch & "smtpauthenticate") = cdoBasic
    
24.         .Item(strSch & "sendusername") = "[email protected]"
    
25.         .Item(strSch & "sendpassword") = "YourPassword"
    
26.         .Update
    
27.     End With
    
28. 
    
29.     Set objCDOMessage = CreateObject("CDO.Message")
    
30.     With objCDOMessage
    
31.         Set .Configuration = objCDOConfig
    
32.         .from = "Senders Pretty Name"
    
33.         .sender = "[email protected]"
    
34.         .To = "[email protected]"
    
35.         .Subject = "Sample CDO Message"
    
36.         ' Use TextBody to send Email in Plain Text Format
    
37.         '.TextBody = "This is a test for CDO message"
    
38.         ' Use HTMLBody to send Email in Rich Text (HTML) Format
    
39.         .HTMLBody = "Test CDO Rich Text this is not Bold But <B>This is!</B>"
    
40.         ' Adding Attachments is easy enough
    
41.         .AddAttachment "c:\SomeFile.zip"
    
42.         .AddAttachment "c:\SomeOtherFile.pdf"
    
43.         ' Un-Rem next line to get "Return Reciept Request"
    
44.         '.MDNRequested = True
    
45.         .Send
    
46.     End With
    
47.     Set objCDOMessage = Nothing
    
48.     Set objCDOConfig = Nothing
    
49. End Sub

½Æ»s¥N½X

jackyliu

¦^´_ 11# c_c_lai
·PÁÂc_c_lai ,¤j¤OÀ°¦£ ! ½Æ»s·sÀɮק¹¦¨,¨S°ÝÃD¤F
­Y±N¨Ì¤é´Á®É¶¡²£¥ÍªºÀÉ®×,­nmail¥X¥h,
§Ú¤§«e³£¬O¤@ª½«ü©w¦P¤@­ÓÀÉ®×,¦ý¥Ø«e°µªk¬O­n±N
­è¤~²£¥Íªºmail¥X¥h,¥i§_«ü¾É¤@¤U !

§Ú¤§«eªþ¥ó¼gªk¦p¤U: ¤£ª¾¹D­n¦p¦ó ±N­è²£¥ÍªºªºÀÉ®×,­nmail¥X¥h(¤é´Á®É¶¡©R¦WÀÉ®×)
CDO_Mail_Object.AddAttachment "D:\TEMP\test.xls"

c_c_lai

¦^´_  GBKEE
¦^ÂÐGBKEE: ­«·s¦bÀˬd´ú¸Õ¨ä¥LÀÉ®×,³£¤£¦æ½Æ»s¤T­Ó¥H¤Wªºsheet!  Sheets(Array("TEST", "RA ...
jackyliu µoªí©ó 2013-8-28 15:30

ªþ¤WÀɮסA½Ð°Ñ¦Ò¡G
¼Ï¯Ã¾ã²z§¹²¦«á½Æ»s¨ì·sªºÀÉ®×°ÝÃD.rar (20.46 KB)

¤U¸ü¦¸¼Æ: 4

2013-8-28 15:44

jackyliu

¦^´_ 8# GBKEE
¦^ÂÐGBKEE: ­«·s¦bÀˬd´ú¸Õ¨ä¥LÀÉ®×,³£¤£¦æ½Æ»s¤T­Ó¥H¤Wªºsheet!  Sheets(Array("TEST", "RAW", "TODAY","YESDAY","NOW")).Copy ,

c_c_lai

¦^´_  GBKEE

Àˬd¤@¤U¤u§@ªíªº¦WºÙ "TEST", "RAW", "TODAY","YESDAY","NOW"¬O§_¦³»~!
¦³"TEST "," TES ...
jackyliu µoªí©ó 2013-8-28 14:47

1. Sub Copy_Sheet()
   
2.     Sheets(Array("TEST", "RAW", "TODAY", "YESDAY", "NOW")).Copy   '  ¦P®É½Æ»s "TEST"¡B¥H¤Î "RAW" µ¥¤­­Ó¤u§@ªí³æ
   
3.     fs = ThisWorkbook.Path & "\" & Format(Date, "yyyy_mm_dd") & ".xls"      '  ¦sÀÉÀɦW
   
4.     ActiveWorkbook.SaveAs FileName:=fs, FileFormat:=-4143
   
5. End Sub

½Æ»s¥N½X

³o»yªk¬O¥¿½Tªº¡AGBKEEª©¤j¥Îªº¬O 2003¡A¦Ó§Ú¬O¨Ï¥Î 2010¡A
½ÐÀˬd©pªºµ{¦¡½X¡C

GBKEE

¦^´_ 7# jackyliu
2003 ¨S³o­­¨î

°Ñ¦Ò[¹ü¤Æ¤@¾ã¤Ñªºblog]ªºÀÉ®×  

¹ü¤Æ¤@¾ã¤Ñªºblog.rar (16.19 KB)

¤U¸ü¦¸¼Æ: 10

2013-8-28 15:07