EDI File Transmission by TCP/IP

Below is a Visual Basic source code program to send an EDI file by HTTPs and FTP with Framework EDI.

Private Sub cmdSend_Click()

Dim oEdiDoc As Fredi.ediDocument
Dim oSegment As Fredi.ediDataSegment
Dim oTransports As Fredi.ediTransports 
Dim oTransport As Fredi.ediTransport 
Dim sSefFile As String
Dim sEdiFile As String

sSefFile = sPath & "810_X12-4010.SEF"
sEdiFile = sPath & "810OUTPUT.x12"

Set oEdiDoc = New Fredi.ediDocument
oEdiDoc.ImportSchema sSefFile, Schema_Standard_Exchange_Format

Set oTransports = oEdiDoc.GetTransports

' Send by HTTPS
Set oTransport = oTransports.CreateTransport
oTransport.SetHTTPS 
oTransport.Address = "www.domain.name"
oTransport.Password = "password"
oTransport.User = "username"
oTransport.TargetPath = "/sitefolder/filefolder/"
oTransport.Send sEdiFile

' Send by FTP
Set oTransport = oTransports.CreateTransport
oTransport.SetFTP 
oTransport.Address = "www.domain.name"
oTransport.Password = "password"
oTransport.User = "username"
oTransport.TargetPath = "/inboundfolder/"
oTransport.Send sEdiFile

' Send by SMTP
Set oTransport = oTransports.CreateTransport

' Set required parameters for email
oTransport.SetSMTP
Set oSmtpCfg = oTransport.GetSmtpCfg
oSmtpCfg.ServerName = ""smtp.maildomain.com""
oSmtpCfg.User = "useracountid"
oSmtpCfg.Password = "accountpassword"
oSmtpCfg.AddTo ("UserTo")
oSmtpCfg.From = "UserFrom@domain.com"
oSmtpCfg.FromDisplay = "UserFirst UserLastname"
oSmtpCfg.Subject = "Subject Title"
oSmtpCfg.MessageText = "Message Body. EDI file attached"
oTransport.Send sEdiFile

End Sub

 

Below is a Visual Basic source code program to receive an EDI file by HTTPs and FTP with Framework EDI.

Private Sub cmdReceive_Click()

Dim oEdiDoc As Fredi.ediDocument
Dim oSegment As Fredi.ediDataSegment
Dim oTransports As Fredi.ediTransports 
Dim oTransport As Fredi.ediTransport 
Dim sSefFile As String
Dim sEdiFile As String

sSefFile = sPath & "810_X12-4010.SEF"
sEdiFile = sPath & "810OUTPUT.x12"

Set oEdiDoc = New Fredi.ediDocument
oEdiDoc.ImportSchema sSefFile, Schema_Standard_Exchange_Format

Set oTransports = oEdiDoc.GetTransports

' Receive by HTTPS
Set oTransport = oTransports.CreateTransport
oTransport.SetHTTPS 
oTransport.Address = "www.domain.name"
oTransport.Password = "password"
oTransport.User = "username"
oTransport.TargetPath = "/sitefolder/filefolder/"
oTransport.Receive sEdiFile

' Receive by FTP
Set oTransport = oTransports.CreateTransport
oTransport.SetFTP 
oTransport.Address = "www.domain.name"
oTransport.Password = "password"
oTransport.User = "username"
oTransport.TargetPath = "/inboundfolder/"
oTransport.Receive sEdiFile

End Sub

Click here to download more sample programs

  Home
    Generate EDI
    Translate EDI
    Acknowledge EDI
    Transmit by TCP/IP <
    Product Information