Re : Convertir un early binding en Late binding
Bonjour Roland_M,
Merci infiniement pour votre réponse.
J'ai regardé votre code VBA qui utilisait le même genre de code que moi et tout semble similiaire...
Par contre je me suis mal exprimée hier en disant que ça ne fonctionnait pas car je peux rouler mon code sur mon poste de travail et un courriel est créé mais plus loin j'ai une ligne qui dit de quel compte outlook je veux que le message soit envoyé, car j'ai 3 comptes sur mon poste de travail, et c'est là qu'il y a un erreur car il ne choisit pas mon compte #1... Avant, quand j'utilisiais la déclaration anticipée, ça fonctionnait très bien mais là ça ne semble pas compatible avec la déclaration tardive... j'imagine que je dois adapter mon code mais comment....
Voici mon code au complet...
Sub Make_Outlook_Mail_With_File_Link_displaytestttttt()
'For Tips see:
Excel Automation - Ron de Bruin
'Working in Excel 2000-2013
Dim OutApp As Object 'Outlook.Application
Dim OutMail As Object 'Outlook.MailItem
Dim StrBody As String
Dim PJ As String
Dim Annee As String
Dim SigString As String
Dim signature As String
Annee = Range("ab1").Value
Sheets("PO").CheckBox9 = True
If ActiveWorkbook.Path <> "" Then
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
StrBody = "<font size=""3"" face=""Calibri"">" & _
"blablablabla,<br><br>" & _
"<br><br>Merci,<br> </font>"
'Change only Mysig.htm to the name of your signature
SigString = Environ("appdata") & _
"\Microsoft\Signatures\ST PO.htm"
If Dir(SigString) <> "" Then
signature = GetBoiler(SigString)
Else
signature = ""
End If
On Error Resume Next
With OutMail
.To = "courriel@blablabla.com"
.CC = ""
.BCC = ""
.Subject = ActiveWorkbook.Name
.HTMLBody = StrBody & "<br>" & signature 'signature
'SendUsingAccount is new in Office 2007
'Change Item(1)to the account number that you want to use
.SendUsingAccount = OutApp.Session.Accounts.Item(1)
'***** c'est ici que mon compte outlook #1 devrait être choisi mais peut importe le chiffre que je mets entre parenthèse, il reste avec le même compte et ce n'est même pas le compte par défaut que j'ai identifié dans outlook c'est la première adresse qui a été créé dans outlook... ******
.Display 'or use .Send ou .display
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
Else
MsgBox "Ce fichier n'est pas enregistrer, vous devez enregistrer le fichier avant de pouvoir l'envoyer par e-mail."
End If
End Sub
Je vais continuer à pousser mes recherches...
Merci à l'avance de votre aide et bonne journée,
Bouclesdor