Envoi de mails facile

Télécharger le projet
Commenter

Description

Ce programme permet d'envoyer des mails en donnant :

-Un nom d'envoyeur
-L'adresse du destinataire (un peu normal ;)
-L'objet du message
-Le message
-Joindre un fichier ou non (CheckBox)
-Nombre de fois que le mail est envoyé au destinataire

Source / Exemple : 


Private Sub Check1_Click()
    If Check1.Value = Checked Then
Text5.Visible = True
Label5.Visible = True
    Else
Text5.Visible = False
Label5.Visible = False

End If
End Sub

Private Sub Command1_Click()
If Text1.Text = "" Or Text2.Text = "" Or Text3.Text = "" Or Text4.Text = "" Or Text6.Text = "" Then
MsgBox "Veuillez remplir tous les champs SVP", vbExclamation, "Erreur"
    Else
If Check1.Value = Checked And Text5.Text = "" Then
MsgBox "Veuillez entrer le chemin de la pièce jointe !", vbExclamation, "Erreur"
    Else
        Set objEmail = CreateObject("CDO.Message")
    objEmail.From = Text1.Text
    objEmail.To = Text2.Text
    objEmail.Subject = Text3.Text
    objEmail.Textbody = Text4.Text
If Check1.Value = Checked Then objEmail.AddAttachment Text5.Text
Frame1.Visible = True
    For i = 1 To Text6.Text
objEmail.Send
    Next
Frame1.Visible = False
other = MsgBox("Message Envoyé, voulez-vous en envoyer un autre ?", vbYesNo + vbQuestion, "Envoyé")
    If other = vbYes Then
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
    Else
Unload Me
End

End If
End If
End If
End Sub

Conclusion :


Merci de me prévenir sur d'éventuels bugs...

P.S : Dézipper VB5fr.dll dans C:\windows\system32 pour win XP et dans C:\Windows\system pour les autres
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

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.

Du même auteur (sebleboss2002)