Sets or gets the verb for sending a document in a HTTP request.
Syntax:
<sVerb> = object.SendVerb
object.SendVerb = <sVerb>
Example:
Dim oEdiDoc As Fredi.ediDocument
Dim oTransports As Fredi.ediTransports
Dim oTransport As Fredi.ediTransport
Dim oHttpCfg As Fredi.ediHttpCfg
Dim sVerb As String
' Create instance of Framework EDI.
Set oEdiDoc = New Fredi.ediDocument
' Load EDI document normally.
oEdiDoc.LoadEdi App.Path & "\SampleEdiX12_850.X12"
' Get transports object
Set oTransports = oEdiDoc.GetTransports
' Create single transport object for sending document.
Set oTransport = oTransports.CreateTransport
' Get the HTTP config object.
Set oHttpCfg = oTransport.GetHttpCfg
' Get the HTTP verb for sending or writing file to internet.
sVerb = oHttpCfg.SendVerb
Debug.Print "HTTP Send Verb: " & sVerb
' Change HTTP verb
oHttpCfg.SendVerb = "POST"
' Set required parameters for the upload.
oTransport.SetHTTP
oTransport.User = "Username"
oTransport.Password = "Password"
oTransport.Address = "255.255.255.255"
oTransport.TargetPath = "/test_folder/"
' Send file.
oTransport.Send "SampleEdiX12_850.X12"
MsgBox "Done"