Framework EDI Reference. Methods and Properties
ediHttpCfg.SendFlags

Sets or gets the flags for sending a document in an HTTP request.

Syntax:

• <lFlags> = object.SendFlags

• object.SendFlags = <lFlags>

Example:

Dim oEdiDoc As Fredi.ediDocument
Dim oTransports As Fredi.ediTransports
Dim oTransport As Fredi.ediTransport
Dim oHttpCfg As Fredi.ediHttpCfg
Dim lFlags As Long

' 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 flags
lFlags = oHttpCfg.SendFlags

' Change flags for sending
oHttpCfg.SendFlags = INTERNET_FLAG_CACHE_IF_NET_FAIL

' 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"