通過VBA在Outlook工具欄中顯示數據

好的，在我的工作中，我們的程序/指導方針要求我們發送電子郵件，讓其他員工知道我們是否要長時間離開辦公桌。這是一個空的電子郵件正文（除了我們的簽名），主題說IN，OUT或10.通過VBA在Outlook工具欄中顯示數據

我已經養成了簡單刪除這些郵件的習慣，以減少混亂。但是很難跟蹤誰在進出。所以我想編寫一個插件，根據這些電子郵件來顯示誰在進入或退出。我目前的想法是，在每個員工名字的工具欄中創建標籤，以及他們是否在進出。

有人可以提出一個好的方法去做這件事嗎？

2012-05-21 HrVanker

你意識到有這樣的事情的協議，例如** [XMPP]（http://en.wikipedia.org/wiki/Extensible_Messaging_and_Presence_Protocol）**和** [SIP]（http：// en。 wikipedia.org/wiki/Session_Initiation_Protocol)**？爲什麼你會嘗試使用電子郵件*存在感知*？只要利用** [jabber網絡]（http://www.jabber.org/）**即可。 – SliverNinja

因爲我們是一家5人沒有IT部門的小公司。主人照顧那些東西，但他不是一個真正的電腦傢伙......這真的很糟糕。至於使用日曆，我們又小又小，我們的老闆並不是真正的技術人員。此外，我的目標（就像我用電腦所做的一切）是效率。如果我可以簡單地將其選中到Outlook，並瀏覽一下工具欄，則無需額外點擊鼠標。 – HrVanker

順便說一句，從我的手機上發佈...我爲可憐的語法和格式道歉。 – HrVanker

您可以爲此創建一個插件（使用VB6或VSTO），或者使用一些VBA來處理傳入的電子郵件並創建日曆約會以阻止這些人是AFK的時間。

喜歡的東西：

Private WithEvents Items As Outlook.Items 
Private Sub Application_Startup() 
Dim olApp As Outlook.Application 
Dim objNS As Outlook.NameSpace 
Set olApp = Outlook.Application 
Set objNS = olApp.GetNamespace("MAPI") 
Set Items = objNS.GetDefaultFolder(olFolderInbox).Items 
End Sub 

Private Sub Items_ItemAdd(ByVal item As Object) 
On Error Goto ErrorHandler 
Dim Msg As Outlook.MailItem 

If TypeName(item) = "MailItem" Then 
Set Msg = item 
    If Msg.Subject = "OUT" Then 
    ' create calendar appointment here 
    End If 
    If Msg.Subject = "IN" Then 
    ' delete calendar appoinment here 
    End If 
End If 
ProgramExit: 
Exit Sub 
ErrorHandler: 
MsgBox Err.Number & " - " & Err.Description 
Resume ProgramExit 
End Sub

我推薦一種替代方案：用外出功能。我知道即使你只是在洗手間或在開會時，主題欄會說「離開辦公室」，但我無法想象它比現在做的更糟糕。它是內置的，不需要太多的努力。

ps-這不關我的事，我可能會因爲問這個問題而燃起火花，但你能告訴我們那是哪家公司，所以我知道永遠不會在那裏工作？這聽起來非常可怕。

來源

2012-05-23 20:14:41 JimmyPena

您應該註冊MS BizSpark和download Lync Server/Communicator。它有built-in presence awareness--你最好投入你的精力比這個奇怪的Outlook VBA /電子郵件設置。

作爲一種替代方案，如果您想要進入Jabber路線，也可以獲得jabber clients free。 jabber.org offers free accounts如果你不想託管你自己的jabber服務器。

這兩種方法都是基於標準的知道人們可用性的方式（存在），而不必依靠它們來執行任何手動操作。

來源

2012-05-24 13:00:05 SliverNinja

再說一次，說服我的老闆使用除了我們已經做的以外的任何事情都是不可能的。他不僅不是科技人員，但我們處理法律文件，所以安全性是他的一個重大關切。我們沒有一個IT部門來照顧這些事情，所以他更喜歡玩它安全。（還是）感謝你的建議。 – HrVanker

通過VBA在Outlook工具欄中顯示數據

回答

相關問題