Soyez le premier à donner votre avis sur cette source.
Vue 9 309 fois - Téléchargée 1 658 fois
' Après avoir ajouté la référence à vmailx.exe dans votre programme ' Voici le code à ajouter, par exemple sur clic d'un bouton Sub cmdMail_OnClick() ' Utilisation de l'envoi de mail Dim MyMail As vMailX.SendMail Set MyMail = New vMailX.SendMail ' On vérifie la connection à Internet If MyMail.EstConnecte = True Then With MyMail .AdresseFrom = "monadresse@moncompte.fr" ' Nom du destinataire .AdresseFromName = "Mon Nom" ' Nom de l'emmeteur ' Ancienne méthode d'ajout de destinataire '.AdresseTo = "destinataire1@compte.fr;destinataire2@compte.fr" ' Destinataire ' Nouvelle méthode sous forme de collection .Destinataire.Add "d1", "destinataire1@compte.fr", MailTo .Destinataire.Add "d2", "destinataire2@compte.fr", MailCc .AttacherFichier.Add , "C:\autoexec.bat", "Fichier Autoexec" ' Ajout d'un fichier .DomainSource = "mon.ordinateur.fr" ' Nom du PC pour le HELO au serveur SMTP .MailObjet = "Objet du mail" ' Objet du mail .MailFormat = eTEXT ' Format du mail .MailContenu = "Corps du mail au format texte" ' Corps du mail .MailPriorite = eNormalPriority ' Priorité du Mail .MailServeur = "mail.serveursmtp.fr" ' Serveur de mail SMTP .TimeOut = 30 ' en secondes .xMailer = "MyMail Mailer" ' Nom du Mailer qui a envoyé le mail ' Si le time out est dépassé, on retente l'envoi .RéessayerEnvoi = True ' On affiche la fenêtre de progression .AfficherEnvoi = True End With MyMail.MailSend If MyMail.ErreurNumber = 0 Then MsgBox "Message correctement envoyé !" Else MsgBox MyMail.ErreurDescription End If End If End Sub Sub cmdSaveValue_Click() ' Utilisation des fichiers INI Dim MyIni As vMailX.Ini Set MyIni = New vMailX.Ini With MyIni .IniFile = "C:\myinifile.ini" .WriteIni "TEST", "CONFIG", "ceci est un test" End With MsgBox MyIni.ReadIni("TEST", "CONFIG", "Je sais pas ?") End Sub Sub cmdGetInfo_Click() ' Utilisation des infos systèmes Dim MyInfo As vMailX.LocalInfo Set MyInfo = New vMailX.LocalInfo With MyInfo MsgBox "Nom de l'ordinateur : " & .CurrentComputer MsgBox "Nom de l'utilisateur : " & .CurrentUser MsgBox "Version de Windows : " & .WindowsVersion ' etc... End With End Sub ' Ne sont pas présent les démonstrations pour Cryptage et Codage... ' (c) Cyril PORTET, Janvier 2002 - Avril 2002 ' vMail X version 0.1.60
Merci d'avance et bon courage
Bonne prog
JLN
1 - le principe de transparence (cas d'une ligne avec uniquement un point) ex :
debut message
.
fin message
dans ce cas la fin du message n'est pas transmise. Il faut que tu double le point (toute séquence <CRLF>.<CRLF> doit être remplacée par <CRLF>..<CRLF>. Le serveur SMTP interprête pour supprimer le second point.
2 - La gestion du destinataire en copie cachée n'est pas complétement implémentée. Comme pour "to :" et "cc :" il faut envoyer "bcc :" dans la section data
Mais, je n'arrive pas à joindre des fichiers
Déjà, il y a une erreur dans le script d'utilisation du composant :
.AttacherFichier.Add , "C:\autoexec.bat", "Fichier
Le premier paramètre n'est pas optionnel.
Lorsque je joins un fichier au mail, il est envoyé sans le fichier...
Pouvez vous m'aider en me donnant un exemple d'un mail avec fichier joint?
Merci
J'ai juste un petite question quand même:
en utilisant un serveur "Microsoft Exchange Server" j'arrive à envoyer des mails en interne en mettant le nom de mon serveur, mais comment faire pour envoyer des mails en externe???
Merci ++
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.