_WND", 0&)

' Send thecomssage to Rescom ClickYes Res = SendMessage(wnd, uClickYes, 1, 0) ' ... ' Do scom Actions ''''' btn_sendmail_Click ‘干些事后再关掉 ' Send thecomssage to Suspend ClickYes Res = SendMessage(wnd, uClickYes, 0, 0) End Sub 程控ClickYes

===

你好: 我想了一個方法，用 display 方法，再按 Ait + S 鍵傳送 Email 以下法在 Excel 2003 + Outlook 2003 測試成功 PS: 請在Excel 視窗下執行，若在 VBE 視窗執行會有問題 Public Declare Function SetTcomr Lib "user32" _ (ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTcomrfunc As Long) As Long Public Declare Function KillTcomr Lib "user32" _ (ByVal hwnd As Long, ByVal nIDEvent As Long) As Long Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Private Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long Function WinProcA(ByVal hwnd As Long, ByVal uMsg As Long, ByVal idEvent As Long, ByVal SysTcom As Long) As Long KillTcomr 0, idEvent DoEvents Sleep 500 Application.SendKeys "%s" End Function Sub test() Application.ScreenUpdating = False Dim objOL As Object Dim itmNewMail As Object

" .display SetTcomr 0, 0, 0, AddressOf WinProcA End With Set objOL = Nothing Set itmNewMail = Nothing Application.ScreenUpdating = True End Sub Set objOL = CreateObject("Outlook.Application") Set itmNewMail = objOL.CreateItem(olMailItem) With itmNewMail .Subject = "chijanzen Mail Test" .To = "chijanzen@gmail.com

[分享]只记得函数的名称，但记不清函数的参数了，怎么办？ 如果你知道所要使用函数的名字，但又记不清它的所有参数格式，那么可以用键盘快捷键把参数粘贴到编辑栏内。 具体方法是：在编辑栏中输入一个等号其后接函数名，然后按 Ctr＋ A键，Excel则自动进入“函数指南——步骤 2之2”。当使用易于记忆的名字且具有很长一串参数的函数时，上述方法显得特别有用。

[分享]只计算Excel公式的一部分 在Excel中当我们调试一个复杂的公式时可能需要知道公式某一部分的值，可以用以下的办法来获得：双击含有公式的单元格，选定公式中需要获得值的那部分公式，按“F9”键，Excel就会将被选定的部分替换成计算的结果，按“Ctrl+Z”可以恢复刚才的替换。如果选定的是整个公式的话，就可以看到最后的结果。 例如，有这样一条公式：(A1*B1+C1)/D1，选定公式中的A1*B1（假设A1和B1的值分别为12和8），按“F9”键，Excel就会将A1*B1这部分转换为96。这时，公式就变成了(96+C1)/D1。如果继续选定D1（假设D1的值为6），并按“F9”键，Excel会将公式转换为(A1*B1+C1)/6。 当你完成了公式的计算部分，想恢复成原来的公式， 按“Esc”即可。 在Excel中当我们调试一个复杂的公式时可能需要知道公式某一部分的值，可以用以下的办法来获得：双击含有公式的单元格，选定公式中需要获得值的那部分公式，按“F9”键，Excel就会将被选定的部分替换成计算的结果，按“Ctrl+Z”可以恢复刚才的替换。如果选定的是整个公式的话，就可以看到最后的结果。