GOTOPASMALIN %Debut
GOTOBIBLIOTHEQUE envcour

§Debut
GOTO	Serveur=«smtp»
GOTO	GOTOPRINTDUTEXTE(«Truc»_«;r;n»_&Serveur_«EHLO »)
GOTO GOTOFIN
	EnvoieCourrier@Serveur=«smtp»
	EnvoieCourrier@Envoyeur BOITEAPINGOUINS(«Sidoine de Wispelaere» «sidoine@ldv.univ-montp2.fr»)
	EnvoieCourrier@Destinataire<*(0)> BOITEAPINGOUINS(«Sidoine le crétin» «sidoine@ldv.univ-montp2.fr»)
GOTO	EnvoieCourrier@Destinataire<*(1)> BOITEAPINGOUINS(«Alexandre Basdufront» «beraud@ldv.univ-montp2.fr»)
	
	EnvoieCourrier@Envoyer(«Message d'essai» ^
«Bonjour,
Admire ce beau message.»)
GOTOFIN