標題:
用outlook寄信
[打印本頁]
作者:
ssooi
時間:
2020-8-7 19:20
標題:
用outlook寄信
我用了以下的方法成功的用outlook寄信了
但是有個麻煩的地方就是執行之前
必須先開啟outlook
請問
有沒有辦法可以不用先開啟OUTLOOK，然後程式也能正常執行?
或是在執行前VBA可以自動讓OUTLOOK啟動?
感謝各位高手
[attach]32383[/attach]
作者:
luhpro
時間:
2020-8-11 23:30
我用了以下的方法成功的用outlook寄信了
但是有個麻煩的地方就是執行之前
必須先開啟outlook
請問
有 ...
ssooi 發表於 2020-8-7 19:20
用底下的指令是可以開啟 Outlook 程式啦.
Dim dTaskID As Double
dTaskID = Shell("OUTLOOK.EXE", 1)
If Err <> 0 Then
MsgBox "開啟 Outlook 程式失敗..."
Exit Sub
End If
複製代碼
不過,
我執行你的程式後發現 :
Set OLApp = New Outlook.Application 執行後,
是有開啟 Outlook 程式的(只是沒顯示出來,但工作管理員看的到),
執行到最後時信件視窗還是會秀出來,
且似乎(我沒試)也可以寄出該信件. (類似你說的不開啟Outlook就寄信)
作者:
ssooi
時間:
2020-8-21 23:35
回復
2#
luhpro
真的太感謝了~
方便再請問
信件寄出後，該怎麼樣"自動"讓outlook程式關閉呢
謝謝你!
作者:
n7822123
時間:
2020-8-23 00:17
本帖最後由 n7822123 於 2020-8-23 00:20 編輯
回復
3#
ssooi
沒用過Outlook ，但是微軟的邏輯應該都是一樣的(參考Excel & IE物件)
Set OLK=CreateObject("Outlook.Application")
'創一個 Outlook 物件
OLK.Visible=True
'顯示 Outlook 視窗
OLK.Quit
'關閉Outlook
作者:
vanguarx
時間:
2020-10-5 16:21
https://docs.microsoft.com/en-us/previous-versions/office/developer/officetalk2010/ff458119(v=office.11)?redirectedfrom=MSDN
http://www.rondebruin.nl/win/section1.htm
這裡有很詳細說明 如何寄信 或 如何 夾帶附檔之類的
歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)
