XL 2019 HTML Corps de mail

My<3

XLDnaute Junior
Bonjour, je suis en train de travailler sur un fichier qui prépare des mails selon la langue de la personne contact. Je suis capable de faire apparaitre le mail si je n'ajoute pas le message. Mes messages sont en erreur et je n'arrive pas a trouver d'où les erreurs proviennent. Je galère depuis 3 jours la dessus.
Est-ce qu'il y a un œil de lynx ici qui peut me donner un coup de main?
Prendre note que je suis ouverte a toute proposition autre que le code inscrit!

J'aimerais que l'apparence du mail ressemble a ceci:

Image
Bonjour Name,

Nous aimerions avoir votre soumission pour la fourniture du projet ci-dessous

Bid Name - BidCity

Votre proposition est requise au plus tard DatePrixRequisFR

Bien vouloir transmettre votre prix à l'adresse suivante: jesaisplus@ouchercher.com

PrecisionMailFR (si cellule vide, supprimer 2 lignes)

Merci à l'avance!
Signature

___________


Code:
Sub Préparer_Courriel_Poutrelle()

     Dim OutApp As Object, OutMail As Object, lgn As Integer, Début As Single
     Dim SujetFr$, MessageFr$, SujetAn$, MessageAn$, Sujet$, Message$
   
   
     Application.ScreenUpdating = False
     Set OutApp = CreateObject("Outlook.Application")
     'Définit le répertoire contenant les fichiers
     CheminFichierAnnexes = "C:\SOUMISSION\Document\Annexes\"
   
     Const EnteteAN = "EnTeteMailAN.png"
     Const EnteteFR = "EnTeteMailFR.png"
   
     With Sh_Info_Bid
     '   Courriel Poutrelle Francais
          SujetFr = "Demande de prix Poutrelles & Pontage  " & .[BidName] & " " & .[BidCity]
         
          MessageFr = "<img src='" & CheminFichierAnnexes & EnteteAN & "'>" & _
                      "<Font Face=""Montserrat"" Size=10 color=""Black"">" & _
                      "Bonjour " & .[Inv_PPName].Cells(lgn).Value & ", " & _
                      "Nous aimerais avoir votre soumission pour la fourniture du projet ci-dessous<br>" & _
                      "<br>" & .[Bid_Name] & " - " & .[Bid_Ville] & _
                      "Votre proposition est requise avant ou le" & "<strong>" & .[DatePrixRequisFR] "</strong>" & "<br>" & _
                      "Bien vouloir transmettre votre prix à l'adresse suivante: jesaisplus@ouchercher.com<br>" & _
                      "<a href=" & .[PrecisionMailFR] & "</a><br>" & _
                      "Merci à l'avance!" & "</font>"


     '   Courriel Poutrelle Anglais
          SujetAn = "Deck & Joist price request  " & .[BidName] & " " & .[BidCity]
         
         MessageAn = "<img src='" & CheminFichierAnnexes & EnteteFR & "'>" & _
                      "<Font Face=""Montserrat"" Size=10 color=""Black"">" & _
                       "Hello " & .[Inv_PPName].Cells(lgn).Value & ", " & _
                       "We would like to have your proposal for the project<br><br>" & _
                       " & .[BidName] & " - " & .[BidCity]<br><br>" & _
                       "Your proposal is required on or before " & "<strong>" & .[DatePrixRequisAN] & "</strong><br>" & _
                       "Please send us your price to "<a href=""jesaisplus@ouchercher.com""></a><br>" & _
                       "<a href=" & .[PrecisionMailAN]&> "</a><br>" & _
                       "Regards! "

         For Each Date_Envoi In .[Date_envoi_poutrelle]
               lgn = lgn + 1
               If TypeName(Date_Envoi.Value) = "Date" Then
                    If .[Inv_PPLangue].Cells(lgn).Value = "AN" Then
                     
                      'Courriel en anglais
                         Sujet = SujetAn
                         Message = MessageAn
                    Else
                      'Courriel en français :
                         Sujet = SujetFr
                         Message = MessageFr
                   
                    End If
                    Set OutMail = OutApp.CreateItem(0)
                   
                    With OutMail
                        .To = "Sh_Info_Bid.[Inv_PPMailTo].Cells(lgn).Value"
                        .CC = "Sh_Info_Bid.[Inv_PPMailCC].Cellslgn).Value"
                        .BCC = ""
                        .Subject = Sujet
                        .HTMLBody = Message
                        .Display        'Affichage du mail préparé
              '         .Save           'Sauvegarde du mail préparé
              '         .Send           'Envoi du mail préparé
                    End With
                    Set OutMail = Nothing
               End If
          Next
     End With
     Set OutApp = Nothing
     Application.ScreenUpdating = True
     MsgBox " Vos courriels ont été créés, il ne vous reste qu'à les vérifier et les expédier !"
End Sub
 
Dernière édition:

patricktoulon

XLDnaute Barbatruc
bonjour
déjà ça ça ne peut pas marcher
VB:
"<img src='" & CheminFichierAnnexes & EnteteAN & "'>"
le src des image doit être le CCID (chemin du dossier d'envoie du serveur )que tu utilise pour ton send

tu devrais chercher ici et là tu a moulte exemples
sans fichier de depart difficile de t'en dire plus
en l'etat ton code n'a ni queue ni tête ;)
 

My<3

XLDnaute Junior
en l'etat ton code n'a ni queue ni tête ;)
Tu peux peut-être m'aider a y voir plus clair? Pour m'aider a mieux bâtir mon code

J'ai 16 possibilités de mails, on parle de 8 en Français et 8 en Anglais selon le type de contact comment filtrerais tu ces conditions?
J'ai un bouton pour chaque type de contact mais la lague n'est as toujours la même, est-ce que tu as un manière plus simple et efficace a me proposer?
 

patricktoulon

XLDnaute Barbatruc
somme toute c'est pas le nombre qui compte mais la méthode
et tu semble pas trop bien connaitre la manipulationn de outlook par vba excel
mais sans fichier excel avec des données (bidonnée bien sur) + des deux images banières
je risque pas d'aller bien loin
 

My<3

XLDnaute Junior
somme toute c'est pas le nombre qui compte mais la méthode
et tu semble pas trop bien connaitre la manipulationn de outlook par vba excel
mais sans fichier excel avec des données (bidonnée bien sur) + des deux images banières
je risque pas d'aller bien loin
Effectivement je ne suis pas caler avec la manipulation hihihi je suis partie d'un ancien fichier qui avais été fais dans le passé par un "pro" mais je comprends qu'il n'était pas plus pro que moi.
 

Pièces jointes

  • REchercheMail.zip
    129.8 KB · Affichages: 5

patricktoulon

XLDnaute Barbatruc
tu va devoir attendre que quelqu'un ai excel supperieur a moi (2013)car ton fichier est innexploitable chez moi
avec tes formules
désolé
1701203894034.png
 

Discussions similaires

Réponses
17
Affichages
1 K
Réponses
2
Affichages
176

Statistiques des forums

Discussions
313 226
Messages
2 096 354
Membres
106 584
dernier inscrit
guillaume.81.deluca@gmail