Legge til knapp i Outlook

[RuZleBIFf]

ja.. som topicen sier:

Jeg fikk et spørsmål om jeg kunne lage en knapp for fatters.

Når man går inn på en mail, skal det være en knapp på toolbar'n som gjør at man lagrer all teksten i et dokument. det er ikke problemet, men den delen med å få denne knappen inn i Outlook! Noen som har løsning på dette? går det i heletatt?

Tusen takk for all hjelp!

[Jonas]

Har ikke Outlook en lagre-funksjon? Har Outlook en funksjon som lar andre programmere ting til den, som f eks IE?

 

Burde vel funke å finne hwnd til tekstvinduet, og hente teksten, på noe samme måte som man skifter Start-knappens caption.

Option Explicit
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function SendMessageSTRING Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As String) As Long

Private Const WM_SETTEXT = &HC
Private Const WM_GETTEXT = &HD

Private Sub Text1_keydown(key As Integer, shift As Integer)
If Not key = 13 Then Exit Sub

SendMessageSTRING FindWindowEx(FindWindow("Shell_TrayWnd", vbNullString), 0&, "button", vbNullString), WM_SETTEXT, 256, Text1.Text

End Sub

Endret 14. oktober 2004 av Jonas

[RuZleBIFf]

ehm.. asså.. kan du beskrive det der på en litt enklere måte?

[Jonas]

Nei