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
___________
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:
