Envoi de mail sans connaitre la messagerie de l'expéditeur
Bonjour et par avance merci de votre aide.
J'ai créé une application de gestion de compétition sous EXCEL diffusée à une centaine de clubs. Chaque club dispose donc d'une feuille formatée de saisie des résultats à me retourner par mail. La macro commande créée fonctionne impeccablement si l'expéditeur utilise Outlook.
Mais je voudrais que cette macro fonctionne quelque soit la messagerie utilisée par chaque club.
Je précise que je suis simplement un bidouilleur sans fortes notions VBA ! :-))
Voici le code concerné :
Dim Baratin As String
Dim ClubRecevant As String
Dim ClubVisiteur As String
Dim DateRencontre As String
Dim Destinataires As String
Dim Journee As String
Dim MailResponsableRecevant As String
Dim Rencontre As String
Dim Repertoire As String
Dim ResponsableRecevant As String
Dim OutApp As Object
Dim OutMail As Object
a = 0
On Error GoTo Continu
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
GoTo Existe_Outlook
[...]
[...]
Baratin = "Je vous prie de trouver ci-joint les résultats de la rencontre de ce jour entre " & ClubRecevant & " et " & ClubVisiteur & "."
If a = 1 Then GoTo Pas_envoi
With OutMail
.To = Destinataires
.CC = MailResponsableRecevant
.Subject = Journee
.htmlbody = "<HTML><BODY>Bonjour,<br><br></BODY></HTML>" & Baratin & _
"<HTML><BODY><br>Bonne réception.<br>Amicalement.<br><br></BODY></HTML>" & ResponsableRecevant
.attachments.Add Repertoire & "\" & Journee & ".pdf"
.attachments.Add Repertoire & "\" & Journee & ".xlsx"
.Display
End With
StrRep = MsgBox( _
prompt:="Vérifiez dans Outlook que la feuille de résultats a bien été envoyée." & vbCr _
& "Elle peut parfois rester dans la Boite d'Envoi de la messagerie !", _
Buttons:=vbOKOnly + vbInformation, _
Title:="Vérification de l'envoi")
GoTo Termine
Pas_envoi:
StrRep = MsgBox( _
prompt:="La feuille de résultats n'est pas envoyée." & vbCr _
& "Il faut la transmettre manuellement via votre messagerie habituelle.", _
Buttons:=vbOKOnly + vbInformation, _
Title:="Envoi de la feuille de résultats")
StrRep = MsgBox( _
prompt:="La feuille de résultats est enregistrée sous le nom :" _
& vbCr & vbCr & Journee & ".xlsx" & vbCr _
& Journee & ".pdf" & vbCr & vbCr _
& "dans le répertoire :" & vbCr & vbCr & Repertoire & vbCr & vbCr _
& "Vous pourrez l'envoyer ultérieurement via votre messagerie habituelle.", _
Buttons:=vbOKOnly + vbInformation, _
Title:="Envoi de la feuille de résultats")
Termine:
End Sub
Bonjour,
"Sans connaître la messagerie de l'utilisateur"
Dans la plus part des cas si les utilisateurs n'utilisent pas outlook sur leur pc pour la gestion de leur mails ; c'est qu'ils gèrents en direct sur
la Page "Web messagerie" de le fournisseurs d'accés. Et dans ce cas inutilise de penser à utiliser du vba.
Sniff !
Mais Merci à toi. N'y aurait-il pas une petite, une toute petite solution, par exemple en allant tester quelle messagerie ils utilisent puis avoir une boucle différente qui envoie avec vers la config gmail (cela doit exister ?) ou vers la config thunderbird (cela doit exister ?) ou yahoo ou...
Encore merci.