返回列表 上一主題 發帖

用outlook寄信

luhpro

帖子
835 
主題
6 
精華
0 
積分
915 
點名
0  
作業系統
Win 10,7 
軟體版本
2019,2013,2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-3 
最後登錄
2025-7-5 
1# 跳轉到 »
發表於 2020-8-11 23:30 | 顯示全部帖子
我用了以下的方法成功的用outlook寄信了
但是有個麻煩的地方就是執行之前
必須先開啟outlook

請問
有 ...
ssooi 發表於 2020-8-7 19:20


用底下的指令是可以開啟 Outlook 程式啦.
  1. Dim dTaskID As Double
  2. dTaskID = Shell("OUTLOOK.EXE", 1)
  3. If Err <> 0 Then
  4.   MsgBox "開啟 Outlook 程式失敗..."
  5.   Exit Sub
  6. End If
複製代碼
不過,
我執行你的程式後發現 :
Set OLApp = New Outlook.Application 執行後,
是有開啟 Outlook 程式的(只是沒顯示出來,但工作管理員看的到),
執行到最後時信件視窗還是會秀出來,
且似乎(我沒試)也可以寄出該信件. (類似你說的不開啟Outlook就寄信)

TOP

        靜思自在 : 屋寬不如心寬。
返回列表 上一主題