Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim cnn As New ADODB.Connection
Dim rs As ADODB.Recordset
lianjie = "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties='Excel 8.0;hdr=yes;';Data Source=C:\Eva Yu\A.xls"
cnn.Open lianjie
st = "select attachment from [sheet1$] where email='" & Item.To & "'"
Set rs = cnn.Execute(st)
If Not (IsNull(rs("attachment"))) Then
Item.Attachments.Add (rs("attachment"))
End If
rs.Close
cnn.Close
Application.Wait (Now + TimeValue("00:03:00"))
End Sub
uj5u.com熱心網友回復：
Application.Wait (Now + TimeValue("00:03:00"))這句，先查檔案，搞明白這個wait是指"等一段時間"還是指“等到一個時間點”
uj5u.com熱心網友回復：
Application.OnTimeuj5u.com熱心網友回復：
為什么不用定時器或者 while true 死回圈轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/7349.html
標籤：VB基礎類