0
我需要的是..我正在接收來自客戶（不同客戶）的繼續郵件以更新他們在數據庫中的資產詳細信息。 。一旦過程完成..我必須從他們的郵件中回覆（包括cc），告訴「資產詳細信息成功存儲在數據庫中」（正在使用模板）...建議我如何使用VBA做到這一點..？如何發送一個相同的回覆郵件（保存在Outlook中的模板）到郵件發件人（收件人，cc）
Explicit選項
公用Sub ReplyToAll（）
昏暗oExp作爲Outlook.Explorer
「用於前景所選郵件
昏暗OSM作爲的MailItem
昏暗ONM作爲mailItem
On Error GoTo Err
Set oExp = Outlook.Application.ActiveExplorer
'Check if something is selected
If oExp.Selection.Count > 0 Then
'Get the first item selected
Set oSM = ActiveExplorer.Selection.Item(1)
'Create a Reply template
Set oNM = oSM.ReplyAll
With oNM
'Change the subject
.Subject = "RE: " & oSM.Subject
'Change the body
.Body = .Body & Chr(13) & Chr(13)
'Display the new mail before sending it
.Display
End With
End If
Exit Sub
錯誤：
MsgBox Err.Description, vbCritical
結束子
.......................
部3
Sub ReplyAll（） Dim objOutlookObject As mailItem
For Each objOutlookObject In GetCurrentOutlookItems
With objOutlookObject
.ReplyAll.Display
「的概率區碼不包括保存在位置c中的模板..throws一些錯誤
.createitemtemplate("c:\car.jtm")
結束隨着 接着 結束子
功能GetCurrentOutlookItems（）爲集合 Dim objApp As Outlook.Application Dim objItem As Object Dim colItems As New Collection
Set objApp = CreateObject("Outlook.Application")
On Error Resume Next
Select Case TypeName(objApp.ActiveWindow)
Case "Explorer"
For Each objItem In objApp.ActiveExplorer.Selection
colItems.Add objItem
Next
Case "Inspector"
colItems.Add objApp.ActiveInspector.CurrentItem
Case Else
' anything else will result in an error, which is
' why we have the error handler above
End Select
Set objApp = Nothing
Set GetCurrentOutlookItems = colItems
端功能
..........
查看上個月的「outlook-vba」問題。幾個解釋您的問題的不同方面：如何訪問郵件項目，如何提取詳細信息以及如何自動答覆。你沒有告訴我們關於你的數據庫的事情，所以沒有人可以幫助你。根據最近的答案構建一個宏，如果宏不起作用，則返回一個特定的問題。 – 2012-01-11 14:29:36
我搜索我可以找到相關的東西..你可以建議任何帖子..如何發送原始郵件的回覆，這樣我可以開發我的宏.. – 2012-01-12 07:49:31
同意託尼。你需要問_specific_問題，並顯示你已經嘗試過。 – JimmyPena 2012-01-13 01:32:08