Bonjour, je viens vous demander de l'aide un peu en urgence.
En effet j'a fait une macro qui me permet de prépa mes mails automatiquement,
le souci c'est qu'une image est liée à ses mails et celle-ci est de la plus haute importance.
Le probleme c'est qu'elle est stockée sur un serveur et que lors de l'envoie par mail, elle n'apparaît plus dans le mail!!!!
il y a a la place une croix rouge...
auriez-vous une solution svp pour que celle-ci apparaisse?
SVP c'est urgent ce mail doit partir début d'après midi chez les clients... aidez moi :-(
En effet j'a fait une macro qui me permet de prépa mes mails automatiquement,
le souci c'est qu'une image est liée à ses mails et celle-ci est de la plus haute importance.
Le probleme c'est qu'elle est stockée sur un serveur et que lors de l'envoie par mail, elle n'apparaît plus dans le mail!!!!
il y a a la place une croix rouge...
auriez-vous une solution svp pour que celle-ci apparaisse?
Code:
Sub SendMail_Outlook()
'Avant de lancer cette macro, mettre en place dans l'éditeur VBA
'(Outlook Library): Tools Reference / Cocher 'Microsoft Outlook Library + Microsoft Internet explorer
'ol = Outlook
'déclaration des variables
Dim ol As New Outlook.Application
Dim olmail As MailItem
Dim CurrFile As String
Dim strBody As String
Dim Corps As String
Dim sig As String
Dim lgm As String
Dim E As InternetExplorer
'Dim F As InternetExplorer
Dim user As String
Dim S As String
i_row = 2
user = Environ("USERNAME")
S = "C:\Documents and Settings\" & user & "\Application Data\Microsoft\Signatures\XXX.htm"
' T = "L:\Transfert\VOEUX2009\XXXgif"
Set E = CreateObject("internetExplorer.Application")
' Set F = CreateObject("internetExplorer.Application")
With E
.Visible = False
.Navigate S
Do Until .ReadyState = READYSTATE_COMPLETE
DoEvents
Loop 'attend la fin du chargement
End With
sig = E.Document.documentElement.innerHTML
'lgm = F.Document.documentElement.innerHTML
DoEvents
E.Quit
'F.Quit
Set E = Nothing
'Set F = Nothing
Do While Workbooks("Voeux Clients.xls").ActiveSheet.Cells(i_row, 1) <> ""
If Cells(i_row, 32) = "" Then
Set ol = New Outlook.Application
Set olmail = ol.CreateItem(olMailItem)
Corps = Cells(i_row, 31)
'Mise en place du code HTML
strBody = "<Body>" & vbCr & Chr(11) & "<FONT face=Tahoma color=#000000 size=3>" & Corps & Chr(11) & vbCr & vbCrLf & Chr(11) & Chr(11) & Chr(11) & "<img src=" & Chr(34) & "[B][U]\\L:\Transfert\VOEUX2009\VOEUX2009.bmp[/U][/B]" & Chr(34) & " align=left>" & Chr(11) & Chr(11) & Chr(11) & Chr(11) & Chr(11) & Chr(11) & Chr(11) & Chr(11) & Chr(11) & Chr(11) & Chr(11) & Chr(11) & Chr(11) & Chr(11) & Chr(11) & Chr(11) & Chr(11) & Chr(11) & Chr(11) & Chr(11) & Chr(11) & Chr(11) & Chr(11) & Chr(11) & Chr(11) & Chr(11) & Chr(11) & Chr(11) & Chr(11) & Chr(11) & Chr(11) & Chr(11) & Chr(11) & Chr(11) & Chr(11) & Chr(11) & Chr(11) & Chr(11) & Chr(11) & sig & "</body></FONT>"
With olmail
.To = Cells(i_row, 7)
.Subject = "Meilleurs Voeux 2009"
.BodyFormat = olFormatHTML 'définition du format du mail, ici HTML
.HTMLBody = strBody 'chargement du fichier HTML en tant que coprs du message
.Display 'affichage du mail
'Display pour le préparer et le vérifier sinon remplacer .Display par .Send pour directement envoyer le mail
End With
Cells(i_row, 32) = "x"
Cells(i_row, 32).Select
With Selection
.HorizontalAlignment = xlCenter
End With
Range(Cells(i_row, 1), Cells(i_row, 32)).Select
With Selection.Interior
.ColorIndex = 37
End With
End If
i_row = i_row + 1
Loop
MsgBox "Tous les mails ont été préparés"
End SubSVP c'est urgent ce mail doit partir début d'après midi chez les clients... aidez moi :-(
