Cześć @LL
Jak po naciśnięciu przycisku szybko wysłać maila na wklepany adres e-mail (jeśli możliwe, nie otwierając Outlooka), automatycznie załączając pliki: c:\x.jpg oraz c:\x.txt ?
0
0
użyj komponentów......
albo webbrowsera i tam skrypt php......
0
Czyli chcesz żeby użytkownik sie nie dowiedział ze wysyla maila?? :)))
hehe ok
Albo używasz INDY (TidPOP3,TidSMTP)
lub FASTNET (NMPOP3,NMSMTP)
lub tez komponentu np mail2000
Ja ci podam procke przy użyciu NMSMTP..
POLACZENIE
NMSMTP1.Host := adressmtp.Text;
NMSMTP1.UserID := User.Text;
NMSMTP1.Connect;
WYSLANIE
NMSMTP1.ClearParams := true //lub false;
NMSMTP1.SubType := mtPlain;
case RadioGroup1.ItemIndex of { w zależności od wybranej pozycji w RadioGroup}
0: NMSMTP1.EncodeType := uuMime;
1: NMSMTP1.EncodeType := uuCode;
end;
begin
NMSMTP1.PostMessage.FromAddress := OdKogo.Text;
NMSMTP1.PostMessage.FromName := OdKogoImie.Text;
NMSMTP1.PostMessage.ToAddress.Text := DoKogo.Text;{tu mozna dac memo i podac pare adresow w linijkach}
NMSMTP1.PostMessage.ToCarbonCopy.Text :=KOPIADO.Text;
NMSMTP1.PostMessage.ToBlindCarbonCopy.Text :=UkrytaKopia.Text;
NMSMTP1.PostMessage.Body.Text := Tresc.Text;
NMSMTP1.PostMessage.Attachments.Text :=ListBox1.Items.Text;
{Powyzej masz dodane sciezki plikow dodanych do zalacznika
są one dodane do listboxa}
NMSMTP1.PostMessage.Subject := Temat.Text;
NMSMTP1.PostMessage.LocalProgram := Edit9.Text;
NMSMTP1.PostMessage.Date := data.Text;
NMSMTP1.PostMessage.ReplyTo :=Odpowiedzpodtenadres.Text;
NMSMTP1.SendMail;//wyslij ten mail!!! :))
end;
W celu uzyskania wiekszej informacji poczytaj o komoponencie NMSMTP z FASTNETu
pamietaj ze jezeli uzytkownik ma antyvirusa skanującego pocztę,to się włączy w chwuili wysylania tego maila..
0
Dzięki!!
Nie zamierzam wysyłać wirusów :
0
Polecam dodać funkcję sprawdzającom połączenie z Netem jeśli jest ktoś połączony to wtedy wysyła maila ;)
Do uses dodaj WinInet !!!
function connected:boolean;
var
Flags: DWORD;
Connected: boolean;
begin
Flags := INTERNET_CONNECTION_MODEM or INTERNET_CONNECTION_LAN or
INTERNET_CONNECTION_PROXY or INTERNET_CONNECTION_MODEM_BUSY;
Result := InternetGetConnectedState(@Flags, 0);
end;
Funkcja zwraca wartość True-jeśli jesteś połączony i False jeśli nie ;)
np:
if (connected) then begin
// wysyłanie maila
// powiadamianie o wysłaniu
// itp
end;
0
thx :)
0
Można też użyć pakietu ICS
polecam!!!!
0
Gdzie mozna sciagnac FASTNET (NMPOP3,NMSMTP) ?
0
Gdzie mozna sciagnac FASTNET (NMPOP3,NMSMTP) ?
Tu http://www.netmastersllc.com/Shopping/ListProducts/default.asp
Płatne....sam nie mam ;-( mam źródła programu, który wymaga tego NMSMTP...i d**@, (D6PE) .
"PPP" ma racje ,po przeczytaniu tego posta INC sobie sciągnąłem i wygląda bardzo interesująco, ma to czego szukałem. (http://overbyte.delphicenter.com/frame_index.html)..heh musze wysłać kartke z pozdrowieniami do Belgii :-D
0
Możecie załatwić sobie delphi 5 enterprise tam są komponenty FASTNET :-) :-) :-)