Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
Sub amendOutbox() Dim olkApp As Object Dim mai As Object Dim acct As Long acct = getAccount If acct = 0 Then acct = 1 Set olkApp = CreateObject("outlook.application") For Each mai In olkApp.Session.GetDefaultFolder(4).items If mai.Class = 43 Then With mai .Importance = 2 .ReadReceiptRequested = True .OriginatorDeliveryReportRequested = True .Attachments.Add "e:\0\Access - (001) 042307.ADA Fee Proposal.pdf", 5 .SendUsingAccount = olkApp.Session.Accounts.Item(acct) .SentOnBehalfOfName = olkApp.Session.Accounts.Item(acct) ' Need to establish the account required ... but once set can be hard coded. .Send MsgBox acct & vbNewLine & olkApp.Session.Accounts.Item(acct) End With End If Next End Sub Function getAccount() As Long Dim olkApp As Object Dim i As Long ' Accounts only valid for 2007 and on! 'can embed it as Access call if required via: ' acct = getaccount() Set olkApp = CreateObject("outlook.application") For i = 1 To olkApp.Session.Accounts.Count If (MsgBox("Use Account " & olkApp.Session.Accounts.Item(i).SmtpAddress, vbYesNo)) = vbYes Then 'olkApp.Session.accounts.item(i) getAccount = i Exit For End If Next ' MsgBox "account selected as :> " & getAccount End Function
|remove extra space at end of cell||12||31|
|MS Access How can I input a range of records in lieu of selecting each record one by one?||2||17|
|split user ID and domain name from email addresses using formula||3||16|
|Import text from rows into columns?||12||32|