Correo electrónico

[Periyo]

Hola a todos:


A traves de un programa creado con delphi, como compruevo si tengo conexión a internet para mandar un correo electrónico automáticamente, sin que de ninguna notificación de que va a mandarlo o de que a sido enviado.:confused: :confused:


Un saludo

[jhonny]

Eso me suena raro pero confio en tu buena voluntad, para detectar si hay conexion a internet puedes hacer lo siguiente:

procedure TForm1.Button1Click(Sender: TObject);

function FuncAvail(_dllname, _funcname: string; var _p: pointer): boolean;
{
Devuelve true si la funcion _funcname esta disponible en la DLL _dllname.
Si es asi, almacena en _p la direccion de la función.
}
var _lib: tHandle;
begin
Result := false;
if LoadLibrary(PChar(_dllname)) = 0 then exit;
_lib := GetModuleHandle(PChar(_dllname));
if _lib <> 0 then
begin
_p := GetProcAddress(_lib, PChar(_funcname));
if _p <> nil then Result := true;
end;
end;

{
En la ayuda de M$ pone que la funcion se encuentra en SHELL32.DLL,
pero en mi Windowz98 no esta en esa DLL pero si en URL.DLL.
Desconozco como ira en otros sistemas Windows.
}
var
InetIsOffline : function(dwFlags: DWORD): BOOL; stdcall;

begin
{ Ojo: 'InetIsOffline' debe de estar escrito con estas mayusculas y
minusculas.}
if FuncAvail('URL.DLL', 'InetIsOffline', @InetIsOffline) = true then
if InetIsOffLine(0) = true
then ShowMessage('No estas conectado')
else ShowMessage('Estas conectado!');
end;

[Periyo]

Gracias por tu Código, utilizo el XP me funciona. Lo que haora quiero saber es como mando un correo con un archivo *.txt automaticamente.¿Me entiendes lo que quiero decir?


Bueno espero que me me entiendas y me mandes prontico otro trozo de código.




Por cierto ¡¡¡Felicidades y enarobuena!!!:D Es Chico o Chica