返回列表 上一主題 發帖

用outlook寄信

用outlook寄信

我用了以下的方法成功的用outlook寄信了
但是有個麻煩的地方就是執行之前
必須先開啟outlook

請問
有沒有辦法可以不用先開啟OUTLOOK,然後程式也能正常執行?
或是在執行前VBA可以自動讓OUTLOOK啟動?
感謝各位高手



outlook.jpg
2020-8-7 19:17

我用了以下的方法成功的用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

回復 2# luhpro

真的太感謝了~
方便再請問
信件寄出後,該怎麼樣"自動"讓outlook程式關閉呢
謝謝你!

TOP

本帖最後由 n7822123 於 2020-8-23 00:20 編輯

回復 3# ssooi


沒用過Outlook ,但是微軟的邏輯應該都是一樣的(參考Excel & IE物件)

Set OLK=CreateObject("Outlook.Application")  '創一個  Outlook 物件  
OLK.Visible=True  '顯示 Outlook 視窗
OLK.Quit        '關閉Outlook
程式是依需求寫的,需求表達不清楚
或者沒有上傳附件,愛莫能助

TOP

https://docs.microsoft.com/en-us/previous-versions/office/developer/officetalk2010/ff458119(v=office.11)?redirectedfrom=MSDN

http://www.rondebruin.nl/win/section1.htm
這裡有很詳細說明 如何寄信 或 如何 夾帶附檔之類的

TOP

        靜思自在 : 【時日莫空過】一個人在世間做了多少事,就等於壽命有多長。因此必須與時間競爭,切莫使時日空過。
返回列表 上一主題