VBA - Shell32.dll을 사용하는 대안

Question

전자 메일 주소를 사용하는 VBA 스크립트를 작성한 다음 새 창에서 엽니 다. 그 트릭은 Shell32.dll을 사용하지 않고 실행시켜야합니다.

아래 코드를 기반으로 다음을 다시 작성할 수있는 다른 방법이 있습니까?

Option Explicit 

Private Declare Function ShellExecute _ 
    Lib "shell32.dll" Alias "ShellExecuteA" (_ 
    ByVal hWnd As Long, _ 
    ByVal Operation As String, _ 
    ByVal Filename As String, _ 
    Optional ByVal Parameters As String, _ 
    Optional ByVal Directory As String, _ 
    Optional ByVal WindowStyle As Long = vbMinimizedFocus _ 
) As Long 

Public Sub OpenUrl() 

Dim olItem As Outlook.MailItem 
Set olItem = Application.ActiveExplorer().Selection(1) 
Dim sTemp As String 
Dim sURL As String 

If olItem.SenderEmailType = "EX" Then 
    sTemp = olItem.Sender.GetExchangeUser().PrimarySmtpAddress 
Else 
    sTemp = olItem.SenderEmailAddress 
End If 

sURL = "https://afakeurl.com/" + sTemp 

Dim lSuccess As Long 


lSuccess = ShellExecute(0, "Open", sURL) 

End Sub 

Answer 1

왜 사용하지 않습니까? 더 설명해 주시겠습니까? 당신은 VBA 셸을 사용할 수 있습니다

Shell "cmd.exe" 

하나의 대안 방법은 이것은 마이크로 소프트 런타임 스크립팅을 사용

set wsh = CreateObject("WScript.Shell") 
wsh.run "Your thing" 

사용하는 것입니다. 하지만이 장면에서는 Shell32.dll을 사용한다고 생각합니다.