[VBA]defaultFieldValuesを指定しSalesforceの登録ページを開く

eh657883

ソースコード

URL構築モジュール

Public Function Build(objectName As String, fields As Dictionary) As String
    Dim url As String
    url = SALESFORCE_URL & "lightning/o/" & objectName & "/new?"
    url = url & "defaultFieldValues="
    
    Dim key As Variant
    For Each key In fields
        Dim val As String
        val = fields.Item(key)
        url = url & key & "=" & val & ","
    Next
    
    Build = url
End Function

 

呼び出しモジュール

Public Sub Test()
    Dim objectName As String
    objectName = "TalkHistory__c"

    Dim fields As Dictionary
    Set fields = New Dictionary
    Call fields.Add("SelectItem1__c", "プリ☆チャン")
    Call fields.Add("Note__c", "備考です")

    ' URLを組み立てる
    Dim url As String
    url = Build(objectName, fields)
        
    ' ブラウザを起動する
    Call EasyAccessBrowser.LaunchBrowser(url, eBrowserType.Edge)
End Sub

起動画面