|
Zdravim, pokousim se napsat malou aplikaci pro Outlook pomoci VSTO ve Visual Studiu. V jednom bode potrebuji upozornit pouzivatele, ze nema spravne zadane hodnoty (MessageBox). Zaroven mu chci nabidnout vlastni napovedu pres tlacitko Help. Pravdepodobne to bude trivialni, protoze se mi k tomu nepodarilo nic vygooglit. Nebo spatne hledam :o) Muzete mi prosim nekdo poradit jak MessageBoxu vnutit vlastni Help soubor (.chm)? Diky moc. Alika
Public Class ThisAddIn
Protected Overrides Function CreateRibbonExtensibilityObject() As Microsoft.Office.Core.IRibbonExtensibility
Return New Ribbon()
End Function
Private Sub ThisAddIn_Startup() Handles Me.Startup
End Sub
Private Sub Application_ItemSend(Item As Object, ByRef Cancel As Boolean) Handles Application.ItemSend
Dim mailItem As Outlook.MailItem = TryCast(Item, Outlook.MailItem)
Dim StartTag, EndTag As Integer
Dim Tag As String = String.Empty
StartTag = 0
EndTag = 0
Try
If Not (mailItem Is Nothing) Then
'doplni klasifikaci posty na zacatek zpravy
If Not IsNothing(mailItem.UserProperties.Find("Priznak")) Then
Klasifikace = GetUserProperty(mailItem, "Priznak")
End If
If Not (Klasifikace Is String.Empty) Then
Dim Zahlavi As String = "....text..."
StartTag = InStr(1, mailItem.HTMLBody, "<body", vbTextCompare)
EndTag = InStr(StartTag + 5, mailItem.HTMLBody, ">")
Tag = Mid(mailItem.HTMLBody, StartTag, EndTag - StartTag + 1)
mailItem.HTMLBody = Replace(mailItem.HTMLBody, Tag, Tag & Zahlavi)
Else
'''MessageBox.Show("text pro pouzivatele", "hlavicka", MessageBoxButtons.OK, MessageBoxIcon.Warning, MessageBoxDefaultButton.Button1, 0, True)'''
Cancel = True
Exit Sub
End If
|