Bonjour a tous !!
J'ai un petit userform avec 6 CheckBox (de CB7 a CB11)
je voudrais rajouter des pieces jointes (a un mail OFT qui s'ouvre automatiquement ) selon les CheckBox selectione
le probleme c'est que les 2 premiers IF marche les autres non ....
J'ai verifier les chemins ils sont bon mais je doit me tromper dans les If / End if / Else / Elseif je m'embrouille
!
je vous met le code si vous pouvez me dire le probleme merci !
J'ai un petit userform avec 6 CheckBox (de CB7 a CB11)
je voudrais rajouter des pieces jointes (a un mail OFT qui s'ouvre automatiquement ) selon les CheckBox selectione
le probleme c'est que les 2 premiers IF marche les autres non ....
J'ai verifier les chemins ils sont bon mais je doit me tromper dans les If / End if / Else / Elseif je m'embrouille
!
je vous met le code si vous pouvez me dire le probleme merci !
Code:
Sub macrofax()
Dim AppOut As Object
Dim oMailItem As Object
Dim NomModele As String
NomModele = "D:\MA SOCIETE\EMAIL\FAX.oft"
Set AppOut = CreateObject("Outlook.Application")
Set oMailItem = AppOut.CreateItemFromTemplate(NomModele)
oMailItem.Display
With oMailItem
.To = "41" & UserForm1.TextBox27 & "@efaxsend.com"
'.Subject = "Essai"
'On Error Resume Next
'FACTURE + BVR
If UserForm1.CheckBox7 = True Then
.Attachments.Add (ActiveWorkbook.Path & "\FACTURE\" & UserForm1.TextBox26 & ".pdf")
.Attachments.Add (ActiveWorkbook.Path & "\EMAIL\" & "BVR.pdf")
End If
'CONTRAT
If UserForm1.CheckBox8 = True Then
.Attachments.Add (ActiveWorkbook.Path & "\CONTRAT\" & UserForm1.TextBox26 & ".jpg")
.Attachments.Add (ActiveWorkbook.Path & "\CONTRAT\" & UserForm1.TextBox26 & " (2).jpg")
End If
'DET
If UserForm1.CheckBox9 = True Then
.Attachments.Add ("D:\MA SOCIETE\DOCUMENT\DOC\DET.docx")
End If
'RELANCE
If UserForm1.CheckBox10 = True Then
.Attachments.Add ("D:\MA SOCIETE\DOCUMENT\DOC\RELANCE.docx")
End If
'CONFIRMATION
If UserForm1.CheckBox11 = True Then
.Attachments.Add ("D:\MA SOCIETE\DOCUMENT\DOC\CONFIRMATION.docx")
End If
'SOLDE
If UserForm1.CheckBox12 = True Then
.Attachments.Add ("D:\MA SOCIETE\DOCUMENT\DOC\SOLDE.docx")
End If
.Display
'.Send
End With
'CheckBox7 = False
'CheckBox8 = False
'CheckBox9 = False
'CheckBox10 = False
'CheckBox11 = False
'CheckBox12 = False
End Sub