de VB emailInfo a Delphi

[JXJ]

saludos. como puedo convertir este trozo de codigo.

de VB a delphi. 7 especialmente lo que toca a emailInfo,
¿Que es correspondiente a delphi. ?
Muchas Gracias.

Código Delphi [-]

'=============================================================================
' SubmitTask
'=============================================================================
Private TForm1.SubmitTask(ByRef email As EmailInfo)
    Reset
    From = email.Sender
    Subject = email.Subject
    Text = email.Body
    Format = BodyFormat
    ServerAddr = Trim(txtServer.Text)
            
    If Trim(txtUser.Text) <> "" And Trim(txtPassword.Text) <> "" And Trim(txtServer.Text) <> "" Then
        UserName = txtUser.Text
        Password = txtPassword.Text
    Else
        UserName = ""
        Password = ""
    End If
            
    Call AddRecipient(email.Recipient, email.Recipient, 0)
    Call Send(, _
                            g_lSend, _
                            "any value")
End Sub

[delphi.com.ar]

En ese código hay fragmentos de Delphi y VB!!...
Sería bueno saber el tipo y la librería del objeto email, sabiendo eso, simplemente tienes que importar la librería y utilizarla en Delphi

[jlibaval]

uses
Outlook8, OleServer, COMobj,

type
TMailRecord= record
FileToAttach : String;
MailTo : String;
CC : String;
BCC : String;
Subject : String;
Body : String;
end;


procedure OutLookMailProc(MailDetail:TMailRecord);
const
olMailItem = 0;
var
Outlook, NmSpace, Folder: OleVariant;
miMail: Variant;
StrList:TStringList;
begin
try
Outlook := GetActiveOleObject('Outlook.Application');
except
Outlook := CreateOleObject('Outlook.Application');
end;
miMail := Outlook.CreateItem(olMailItem);
miMail.Recipients.Add(MailDetail.MailTo);
miMail.Subject:=MailDetail.Subject;
miMail.Body:=MailDetail.Body;
miMail.ReadReceiptRequested:=True;
// Para adjuntar HTML email (no aplica Outlook 97)
if FileExists('C:\Firma.Htm') then begin
StrList:=TStringList.create;
try
StrList.LoadFromFile('C:\Firma.Htm');
miMail.HTMLBody :=StrList.Text;
finally
StrList.Free;
end;
end
if MailDetail.FileToAttach<>'' then
miMail.Attachments.Add(MailDetail.FileToAttach);
MiMail.Display(True);
Outlook := Unassigned;
end;


var
MailDetail:TMailRecord;

begin
MailDetail.FileToAttach:='C:\Archivo';
MailDetail.MailTo:='[email protected]';
MailDetail.CC:='';
MailDetail.Subject:='EmailAsunto';
MailDetail.Body:='';
OutLookMailProc(MailDetail);
end;

[JXJ]

revisando y probando el codigo que ha puesto
jlibaval

y es cierto, tiene un trozo en delphi., que es donde habia empezado a tratar
de traducir, pero solo es TForm1.
lo demás es puro codigo VB

[JXJ]

revisando y probando el codigo que ha puesto
jlibaval

y es cierto, tiene un trozo en delphi., que es donde habia empezado a tratar
de traducir, pero solo es TForm1.
lo demás es puro codigo VB