sascha224
sascha224
/ MailMsgIdToClipboard.bas
Last active
June 3, 2024 15:55
MS Outlook VBA Module for copying the message ID of the current mail into clipboard
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Public Declare PtrSafe Function OpenClipboard Lib "user32" (ByVal hwnd As LongPtr) As Long | |
| Public Declare PtrSafe Function EmptyClipboard Lib "user32" () As Long | |
| Public Declare PtrSafe Function CloseClipboard Lib "user32" () As Long | |
| Public Declare PtrSafe Function SetClipboardData Lib "user32" (ByVal uFormat As Long, ByVal hMem As LongPtr) As LongPtr | |
| Public Declare PtrSafe Function GlobalAlloc Lib "kernel32" (ByVal wFlags As Long, ByVal dwBytes As LongPtr) As LongPtr | |
| Public Declare PtrSafe Function GlobalLock Lib "kernel32" (ByVal hMem As LongPtr) As LongPtr | |
| Public Declare PtrSafe Function GlobalUnlock Lib "kernel32" (ByVal hMem As LongPtr) As Long | |
| Public Declare PtrSafe Function lstrcpy Lib "kernel32" (ByVal lpString1 As LongPtr, ByVal lpString2 As String) As LongPtr | |
| Public Const GHND = &H42 |