Titolo: Metodo di Invio Mail da 4D
Categoria: Codice |
|
Ultimo Aggiornamento: 15/04/04 |
C_LONGINT($Smtp_l;Errore_l)
C_STRING(30;$SmtpUser_s;30;$SmtpPassword_s)
C_TEXT($SmtpServer_t;$Mittente_t;$Destinatario_t;$Titolo_t;$Testo_t)
$SmtpServer_t:="mail.sviluppo4d.it"
$Mittente_t:="sito@sviluppo4d.it"
$Destinatario_t:="umigliore@nexusonline.it"
$Titolo_t:="Messaggio di Prova"
$Testo_t:="Ti sto inviando un messaggio di prova"
` queste due variabili servono se il server richiede l'autenticazione
` è possibile altrimenti lasciarle vuote
$SmtpUser_s:="sito"
$SmtpPassword_s:="miapassword"
` questi due comandi automatizzano la conversione dei caratteri accentati
` serve lanciarli una volta sola allo startup del programma
SMTP_SetPrefs(1;1;0)
$Errore_l:=SMTP_Charset(1;1)
$Errore_l:=SMTP_New($Smtp_l)
$Errore_l:=SMTP_Host($Smtp_l;$SmtpServer_t)
$Errore_l:=SMTP_From($Smtp_l;$Mittente_t)
$Errore_l:=SMTP_To($Smtp_l;$Destinatario_t)
$Errore_l:=SMTP_Subject($Smtp_l;$Titolo_t)
$Errore_l:=SMTP_Comments($Smtp_l;"Inviato con 4th Dimension")
$Errore_l:=SMTP_Body($Smtp_l;$Testo_t)
$Errore_l:=SMTP_Auth($Smtp_l;$SmtpUser_s;$SmtpPassword_s)
$Errore_l:=SMTP_Send($Smtp_l)
$Errore_l:=SMTP_Clear($Smtp_l)
Inviato da: Umberto Migliore |
|
Visite: 14178 |
Se accedi con utente e password, puoi aggiungere dei commenti.