Moderator: Moderatorzy
Dim WithEvents oInspectors As Inspectors
'obiekt nowego punktu w menu
Dim WithEvents oPopupButton As CommandBarButton
'obiekt nowego klawisza toolbara
Dim WithEvents oToolbarButton As CommandBarButton
Private Sub Application_Startup()
Set oInspectors = Application.Inspectors
End Sub
'Funkcja sprawdza czy istnieje juz nasz popup i jesli nie to go dodaj
Sub AddNewPopup(oInspector As Inspector)
Dim oMenuBar As CommandBar
Set oMenuBar = oInspector.CommandBars.Item("Menu Bar")
'Sprawdz czy menu juz istnieje
Dim oControl As CommandBarControl
For Each oControl In oMenuBar.Controls
If "NoweMenu" = oControl.Caption Then Exit Sub
Next
Dim oPopup As CommandBarPopup
Set oPopup = oMenuBar.Controls.Add(Type:=msoControlPopup, Temporary:=True)
oPopup.Caption = "NoweMenu"
oPopup.Visible = True
Set oPopupButton = oPopup.Controls.Add(Type:=msoControlButton, Temporary:=True)
oPopupButton.Style = msoButtonIconAndCaption
oPopupButton.Caption = "Nowy punkt menu"
oPopupButton.Visible = True
oPopupButton.BuiltInFace = True
oPopupButton.FaceId = 222
End Sub
'Funkcja sprawdza czy istnieje juz nasz klawisz na glownym toolbarze i jesli nie to go dodaje
Sub AddNewToolbarButton(oInspector As Inspector)
Dim oMenuBar As CommandBar
Set oMenuBar = oInspector.CommandBars.Item("Standard")
'sprawdz czy klawisz juz istnieje
Dim oControl As CommandBarControl
For Each oControl In oMenuBar.Controls
If "NowyKlawiszToolbara" = oControl.Caption Then Exit Sub
Next
Set oToolbarButton = oMenuBar.Controls.Add(Type:=msoControlButton, Temporary:=True)
oToolbarButton.Style = msoButtonIconAndCaption
oToolbarButton.Caption = "NowyKlawiszToolbara"
oToolbarButton.Visible = True
oToolbarButton.BuiltInFace = True
oToolbarButton.FaceId = 320
End Sub
Private Sub oInspectors_NewInspector(ByVal Inspector As Inspector)
On Error GoTo ErrorLabel
'rozszerzamy tylko maile
If Inspector.CurrentItem.MessageClass <> "IPM.Note" Then Exit Sub
Call AddNewPopup(Inspector)
Call AddNewToolbarButton(Inspector)
Exit Sub
ErrorLabel:
Debug.Print Err.Description
End Sub
Private Sub oPopupButton_Click(ByVal Ctrl As Office.CommandBarButton, CancelDefault As Boolean)
MsgBox "Nacisnieto nowy klawisz w menu!"
End Sub
Private Sub oToolbarButton_Click(ByVal Ctrl As Office.CommandBarButton, CancelDefault As Boolean)
MsgBox "Nacisnieto nowy klawisz na toolbarze!"
End Sub
Set olApp = CreateObject("Outlook.Application")
Set olMail = olApp.ActiveWindow(olMailItem)
olMail.To = adres
Set olApp = CreateObject("Outlook.Application")
Set Inspector = olApp.ActiveInspector
Inspector.CurrentItem.Recipients.Add = adresy
.Recipients = Array("a.b@veracomp.pl", "b.a@veracomp.pl", "a.a@veracomp.pl", "b.b@veracomp.pl")
Dim oMail As MailItem
Set oMail = Application.ActiveInspector.CurrentItem
oMail.Recipients.Add "info@outlook.pl"
Set olApp = CreateObject("Outlook.Application")
If adresy <> "" Then
Dim olMail As MailItem
Set olMail = Application.ActiveInspector.CurrentItem
olMail.Recipients.Add "" & Left$(adresy, Len(adresy) - 1) & ""
Set olMail = Nothing
Else
MsgBox "Brak możliwości wklejenia adresów do wiadomości e-mail!" & vbCr _
& "z powodu braku zaznaczonych pozycji drzewa", vbExclamation, " Informacja o błędzie"
End If
Set olApp = CreateObject("Outlook.Application")
Set olMail = Application.CreateItem(olMailItem)
olMail.CC = Left$(adresy, Len(adresy) - 1)
Set olMail = Application.ActiveInspector.CurrentItem
olMail.CC
olMail.Recipients.Add ("" & Left$(adresy, Len(adresy) - 1) & "")
...
Dim oRecipient
Set oRecipient = oMail.Recipients.Add("info@outlook.pl")
oRecipient.Type = olCC
...
Set olMail = Application.ActiveInspector.CurrentItem
olMail.Recipients.Add ("" & Left$(adresy, Len(adresy) - 1) & "")
olMail.Type = olCC
Dim oRecipient
Set oRecipient = oMail.Recipients.Add("" & Left$(adresy, Len(adresy) - 1) & "")
oPopupButton_Click(ByVal Ctrl As Office.CommandBarButton, CancelDefault As Boolean)
dziwne tylko że jak coś się nie powiedzie w instrukcji [...]
to muszę resetować Outlooka bo 2gi raz instrukcja/procedura się nie wywoła
On Error Resume Next
Private Sub oToolbarButton_Click(ByVal Ctrl As Office.CommandBarButton, CancelDefault As Boolean)
Call SubjectEditor
End Sub
Sub SubjectEditor()
Form.Show
End Sub
Private Sub UserForm_Activate()
Set oMail = Application.ActiveInspector.CurrentItem
...
End Sub
Użytkownicy przeglądający ten dział: Google [Bot] i 7 gości