Microsoft Office Tutorials and References
In Depth Information
Creating Task Items Automatically in Outlook
![Line Total].Value & vbTab¶
rcset.MoveNext¶
Loop¶
End With¶
strBody = strBody & vbCrLf & _¶
String(100, "-") & vbCrLf & _¶
"SubTotal:" & vbTab & Format(.Order_Subtotal, "Currency") & vbCrLf & _¶
"Freight Chr:" & vbTab & Format(.FreightCharge, "Currency") & vbCrLf & _¶
"Sales Tax:" & vbTab & Format(.Sales_Tax, "Currency") & vbCrLf & _¶
"Order Total:" & vbTab & Format(.Order_Total, "Currency") & vbCrLf & _¶
"Payments:" & vbTab & Format(.Total_Payments, "Currency") & vbCrLf & _¶
"Amount Due:" & vbTab & Format(.Amount_Due, "Currency")¶
End With¶
'Return complete data set¶
GetOrderInformation = strBody¶
End Function¶
' * * * * *¶
Private Sub RemoveOLTask(DelTaskID As String)¶
'Deletes a Task Item¶
'Record deleting causes this action¶
'And remove related Task Item by identifying¶
'related OLTaskItemID for the record¶
'Outlook Application Objects declaration¶
Dim olApp As Object¶
Dim olTask As Object¶
'Continue when an error occurs¶
On Error Resume Next¶
'Validate if there is a valid Task Entry ID saved for deleting¶
If Not IsNull(DelTaskID) Then¶
Set olApp = GetObject(, "Outlook.Application")¶
If Err Then¶
Set olApp = CreateObject("Outlook.Application")¶
End If¶
On Error GoTo ErrHandler¶
Set olTask =
olApp.GetNamespace("MAPI").GetItemFromID(DelTaskID)¶
If Not olTask Is Nothing Then¶
'Delete retrieved Task Item¶
olTask.Delete¶
End If¶
End If¶
ExitSub:¶
If Not olApp Is Nothing Then¶
If olApp.ActiveExplorer Is Nothing Then¶
olApp.Quit¶
End If¶
Set olApp = Nothing¶
End If¶
Exit Sub¶
Out
Search JabSto ::




Custom Search