Thierry Dalon tdalon
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
| 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 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 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 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 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 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 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
tdalon
/ FocusAssist.ahk
Last active
August 22, 2024 03:18
AHK Script to set Focus Assist mode with an Hotkey or by script
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
| FocusAssist(sInput){ | |
| Run, ms-settings:quiethours | |
| ; Wait for WinTitle=Settings | |
| WinWaitActive,Settings | |
| UIA := UIA_Interface() | |
| WinId := WinActive("A") | |
| UIAEl := UIA.ElementFromHandle(WinId) |
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
| let | |
| JiraRootUrl = getNamedCellValue("JiraRootUrl"), | |
| ProjectKey = getNamedCellValue("ProjectKey"), | |
| Source = Json.Document(Web.Contents(JiraRootUrl & "/rest/api/2/search?jql=project=" & ProjectKey & " AND issuetype = Epic AND labels in ('process_improvement')")), | |
| issues = Source[issues], | |
| #"Converted to Table" = Table.FromList(issues, Splitter.SplitByNothing(), null, null, ExtraValues.Error), | |
| #"Expanded Column1" = Table.ExpandRecordColumn(#"Converted to Table", "Column1", { "fields","key"}, { "Column1.fields","EpicKey"}), | |
| #"Expanded Column1.fields" = Table.ExpandRecordColumn(#"Expanded Column1", "Column1.fields", {"customfield_10104"}, {"Epic Name"}) | |
| in | |
| #"Expanded Column1.fields" |
NewerOlder