Hello
Je dois sous EXCEL 2000, cr=E9er un bouton qui permette=20
d'envoyer un email avec le fichier joint.(Je veux indiquer=20
l'email , le sujet mais que l'utilisateur tape le corps du=20
message).
Je ne connais pas la messagerie utilis=E9e par l'utilisateur=20
final....
Merci d'avance =E0 mon sauveur...
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Michel Pierron
Bonjour Philou; Quelque chose comme (à adapter à ton besoin):
Sub MailValues() On Error GoTo Failed Dim Exp$, Dest$, Obj$, Body$, PJ$ Expediteur: Exp = InputBox("Addresse expéditeur:") If Exp = "" Then Exit Sub If InStr(1, Exp, " ") Then MsgBox "Adresse invalide !", 64: GoTo Expediteur If InStr(1, Exp, "@") = 0 Then MsgBox "Adresse invalide !", 64: GoTo Expediteur Destinataire: Dest = InputBox("Addresse destinataire:") If Dest = "" Then Exit Sub If InStr(1, Dest, " ") Then MsgBox "Adresse invalide !", 64: GoTo Destinataire If InStr(1, Dest, "@") = 0 Then MsgBox "Adresse invalide !", 64: GoTo Destinataire Objet: Obj = InputBox("Objet du message:") If Obj = "" Then GoTo Objet Body = InputBox("Message:") PieceJointe: PJ = InputBox("Chemin complet Pièce jointe (OK si aucune):") If Dir(PJ) = "" Then MsgBox "Chemin non valide !", 64: GoTo PieceJointe MailEnvoi Exp, Dest, Obj, Body, PJ Exit Sub Failed: MsgBox "Error: " & Err.Number & vbLf & Err.Description, 48 End Sub
Private Sub MailEnvoi(Exp$, Dest$, Obj$, Body$, PJ$) With CreateObject("CDO.Message") .From = Exp .To = Dest .Subject = Obj .TextBody = Body If PJ <> "" Then .AddAttachment PJ .Send End With End Sub
MP
"PHILOU" a écrit dans le message de news:cf7401c3eef6$6e0a9a60$ Hello Je dois sous EXCEL 2000, créer un bouton qui permette d'envoyer un email avec le fichier joint.(Je veux indiquer l'email , le sujet mais que l'utilisateur tape le corps du message). Je ne connais pas la messagerie utilisée par l'utilisateur final.... Merci d'avance à mon sauveur...
Bonjour Philou;
Quelque chose comme (à adapter à ton besoin):
Sub MailValues()
On Error GoTo Failed
Dim Exp$, Dest$, Obj$, Body$, PJ$
Expediteur:
Exp = InputBox("Addresse expéditeur:")
If Exp = "" Then Exit Sub
If InStr(1, Exp, " ") Then MsgBox "Adresse invalide !", 64: GoTo Expediteur
If InStr(1, Exp, "@") = 0 Then MsgBox "Adresse invalide !", 64: GoTo Expediteur
Destinataire:
Dest = InputBox("Addresse destinataire:")
If Dest = "" Then Exit Sub
If InStr(1, Dest, " ") Then MsgBox "Adresse invalide !", 64: GoTo Destinataire
If InStr(1, Dest, "@") = 0 Then MsgBox "Adresse invalide !", 64: GoTo
Destinataire
Objet:
Obj = InputBox("Objet du message:")
If Obj = "" Then GoTo Objet
Body = InputBox("Message:")
PieceJointe:
PJ = InputBox("Chemin complet Pièce jointe (OK si aucune):")
If Dir(PJ) = "" Then MsgBox "Chemin non valide !", 64: GoTo PieceJointe
MailEnvoi Exp, Dest, Obj, Body, PJ
Exit Sub
Failed: MsgBox "Error: " & Err.Number & vbLf & Err.Description, 48
End Sub
Private Sub MailEnvoi(Exp$, Dest$, Obj$, Body$, PJ$)
With CreateObject("CDO.Message")
.From = Exp
.To = Dest
.Subject = Obj
.TextBody = Body
If PJ <> "" Then .AddAttachment PJ
.Send
End With
End Sub
MP
"PHILOU" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:cf7401c3eef6$6e0a9a60$a001280a@phx.gbl...
Hello
Je dois sous EXCEL 2000, créer un bouton qui permette
d'envoyer un email avec le fichier joint.(Je veux indiquer
l'email , le sujet mais que l'utilisateur tape le corps du
message).
Je ne connais pas la messagerie utilisée par l'utilisateur
final....
Merci d'avance à mon sauveur...
Bonjour Philou; Quelque chose comme (à adapter à ton besoin):
Sub MailValues() On Error GoTo Failed Dim Exp$, Dest$, Obj$, Body$, PJ$ Expediteur: Exp = InputBox("Addresse expéditeur:") If Exp = "" Then Exit Sub If InStr(1, Exp, " ") Then MsgBox "Adresse invalide !", 64: GoTo Expediteur If InStr(1, Exp, "@") = 0 Then MsgBox "Adresse invalide !", 64: GoTo Expediteur Destinataire: Dest = InputBox("Addresse destinataire:") If Dest = "" Then Exit Sub If InStr(1, Dest, " ") Then MsgBox "Adresse invalide !", 64: GoTo Destinataire If InStr(1, Dest, "@") = 0 Then MsgBox "Adresse invalide !", 64: GoTo Destinataire Objet: Obj = InputBox("Objet du message:") If Obj = "" Then GoTo Objet Body = InputBox("Message:") PieceJointe: PJ = InputBox("Chemin complet Pièce jointe (OK si aucune):") If Dir(PJ) = "" Then MsgBox "Chemin non valide !", 64: GoTo PieceJointe MailEnvoi Exp, Dest, Obj, Body, PJ Exit Sub Failed: MsgBox "Error: " & Err.Number & vbLf & Err.Description, 48 End Sub
Private Sub MailEnvoi(Exp$, Dest$, Obj$, Body$, PJ$) With CreateObject("CDO.Message") .From = Exp .To = Dest .Subject = Obj .TextBody = Body If PJ <> "" Then .AddAttachment PJ .Send End With End Sub
MP
"PHILOU" a écrit dans le message de news:cf7401c3eef6$6e0a9a60$ Hello Je dois sous EXCEL 2000, créer un bouton qui permette d'envoyer un email avec le fichier joint.(Je veux indiquer l'email , le sujet mais que l'utilisateur tape le corps du message). Je ne connais pas la messagerie utilisée par l'utilisateur final.... Merci d'avance à mon sauveur...
