Thierry Dalon tdalon
This file contains hidden or 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
| Sub OpenTeamsMeetingChat() | |
| Dim Item As Object | |
| Set Item = GetCurrentItem() | |
| If Item Is Nothing Then | |
| MsgBox "No Item selected" | |
| Exit Sub | |
| End If | |
| If Not TypeOf Item Is Outlook.AppointmentItem Then | |
| Exit Sub |
This file contains hidden or 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
| Private pLocalPath As String | |
| Public Property Get LocalPath() As String | |
| If pLocalPath = "" Then | |
| pLocalPath = GetLocalPath(ThisWorkbook.Path) | |
| End If | |
| LocalPath = pLocalPath | |
| End Property | |
| ' Using Property somewhere else in VBA - example |
This file contains hidden or 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
| Sub Duplicate() | |
| Dim Item As Object | |
| Set Item = GetCurrentItem() | |
| If Item Is Nothing Then | |
| MsgBox "No Item selected" | |
| Exit Sub | |
| End If | |
| If Not TypeOf Item Is Outlook.AppointmentItem Then | |
| Exit Sub |
tdalon
/ Confluence_GetVerLink.ahk
Created
February 26, 2024 10:38
Confluence: Get Version Information
This file contains hidden or 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
| Confluence_GetVerLink(url:="") { ; @fun_Confluence_GetVerLink@ | |
| ; Get Link information from current page Url | |
| ; sHtml := Confluence_GetVerLink(url:="") | |
| If (url="") | |
| url := Browser_GetUrl() | |
| If (url="") | |
| return | |
| ; Get current pageId | |
| pageId := Confluence_GetPageId(url) | |
| rootUrl := Confluence_GetRootUrl() |
This file contains hidden or 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
| function addIndex() { | |
| var indices = []; | |
| jQuery(".ak-editor-content-area .ProseMirror").find("h1,h2,h3,h4,h5,h6").each(function(i,e) { | |
| var hIndex = parseInt(this.nodeName.substring(1)) - 1; | |
| if (indices.length - 1 > hIndex) { | |
| indices= indices.slice(0, hIndex + 1 ); | |
| } | |
| if (indices[hIndex] == undefined) { | |
| indices[hIndex] = 0; |
tdalon
/ PasteImageLink.ahk
Last active
February 7, 2024 09:07
Paste web image link in Confluence Cloud Fabric Editor
This file contains hidden or 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
| If Confluence_IsWinActive() { | |
| If RegExMatch(Clipboard, "^http.*\.(png|jpg|jpeg|gif)$") { | |
| imglink =  | |
| Clip_Paste(imglink) | |
| return | |
| } | |
| } |
This file contains hidden or 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
| Teams_Mute(State := 2,showInfo:=true,restoreWin:=true){ | |
| ; State: | |
| ; 0: mute off, unmute | |
| ; 1: mute on | |
| ; 2*: (Default): Toggle mute state | |
| WinId := Teams_GetMeetingWindow() | |
| If !WinId ; empty | |
| return |
This file contains hidden or 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
| Teams_SwitchTenant(sTenant) { | |
| WinId := Teams_GetMainWindow() | |
| If !WinId ; empty | |
| return | |
| UIA := UIA_Interface() | |
| TeamsEl := UIA.ElementFromHandle(WinId) | |
| If !TeamsEl.FindFirstBy("AutomationId=idna-me-control-set-status-message-trigger") { ; menu not opened | |
| ; Click on avatar | |
| MeCtrl := TeamsEl.FindFirstBy("AutomationId=idna-me-control-avatar-trigger") |
tdalon
/ Teams_BackgroundImport.ahk
Created
October 20, 2023 14:41
Import Teams meeting background files in Teams New
This file contains hidden or 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
| Teams_BackgroundImport(srcDir:=""){ | |
| ; https://techcommunity.microsoft.com/t5/microsoft-teams-public-preview/backgrounds/m-p/3782690 | |
| If GetKeyState("Ctrl") { | |
| Teamsy_Help("bgi") | |
| return | |
| } | |
| If !Teams_IsNew() | |
| { | |
| return |
tdalon
/ EmailShareActiveUrl.ahk
Created
October 16, 2023 07:15
Quick Share Url by Email with AutoHotkey
NewerOlder