ssooi

帖子: 37
主題: 15
精華: 0
積分: 72
點名: 0
作業系統: win10
軟體版本: 0
閱讀權限: 20
註冊時間: 2020-7-23
最後登錄: 2022-5-27

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2020-8-7 19:20 | 只看該作者

用outlook寄信

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

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

樓主熱帖

luhpro

高中生 Rank: 3 Rank: 3

帖子: 835
主題: 6
精華: 0
積分: 915
點名: 16
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2024-11-14

2^#

發表於 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就寄信)

TOP

ssooi

中學生 Rank: 2

帖子: 37
主題: 15
精華: 0
積分: 72
點名: 0
作業系統: win10
軟體版本: 0
閱讀權限: 20
註冊時間: 2020-7-23
最後登錄: 2022-5-27

3^#

發表於 2020-8-21 23:35 | 只看該作者

回復 2# luhpro

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

TOP

n7822123

　暱稱: 阿龍

中學生 Rank: 2

帖子: 406
主題: 8
精華: 0
積分: 453
點名: 0
作業系統: WINDOWS 7
軟體版本: 2007
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2015-2-7
最後登錄: 2021-7-31

4^#

發表於 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

程式是依需求寫的，需求表達不清楚
或者沒有上傳附件，愛莫能助

TOP

vanguarx

中學生 Rank: 2

帖子: 41
主題: 8
精華: 0
積分: 64
點名: 0
作業系統: WIN7
軟體版本: OFFICE2010
閱讀權限: 20
註冊時間: 2015-3-11
最後登錄: 2020-10-7

5^#

發表於 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
這裡有很詳細說明如何寄信或如何夾帶附檔之類的

TOP