1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26
| Sub Mailclient()
Dim Session As Object
Dim db As Object
Dim doc As Object
Dim rtitem As Object
Dim object As Object
Dim fs As Object
Dim Principaux(2) As String
Dim Copies(3) As String
Dim dir As Object
Dim inti As Integer
Dim passwd As String
Dim resultat As Integer
Dim resultat2 As String
Dim valuer As String
Dim valuer2 As String
Dim valuer3 As String
Dim valuer4 As String
Dim valuer5 As String
resultat = InputBox("Veuillez insérer la référence pour envoyer le mail ", "Référence", "")
resultat2 = InputBox("Veuillez insérer l'adresse mail ", "Mail", "")
valuer = CDate(Application.WorksheetFunction.VLookup(resultat, Sheets("feuill1").Range("I2:Z1600"), 3, False))
valuer2 = CDate(Application.WorksheetFunction.VLookup(resultat, Sheets("feuill1").Range("I2:Z1600"), 6, False))
valuer3 = Application.WorksheetFunction.VLookup(resultat, Sheets("feuill1").Range("I2:Z1600"), 12, False)
valuer4 = CDate(Application.WorksheetFunction.VLookup(resultat, Sheets("feuill1").Range("I2:Z1600"), 3, False))
valuer5 = Application.WorksheetFunction.VLookup(resultat, Sheets("feuill1").Range("I2:Z1600"), 7, False) |
Partager