valmae
Nouveau membre
Bonsoir à tous,
j'ai créer un Classeur Excel, avec des Macros et un formulaire à la fin avec trois boutons:
1 /envois de mail
2/ envois de mail
3/ envois de mail
Apparemment, me suis plantée cela ne fonctionne pas :??:
Juste le petit message "Erreur d'envoie du message" qui s'affiche.
Le pire! c'est que cela fonctionnais avant que je fasse des modif :heink:
(enfin, pour les deux premiers)
-Modif faites:
texte et l'@ mail (deux au lieu d'une seul, séparées par " ; " )
corpsdumail s ou 1
corpsdumails s ou 2
....
et pour les retours ChariO?
Pensez-vous que cela peut venir de là ? :sweat:
Si j'ai oublié des infos, n'hésitez pas.
MERCI à TouS
j'ai créer un Classeur Excel, avec des Macros et un formulaire à la fin avec trois boutons:
1 /envois de mail
2/ envois de mail
3/ envois de mail
Apparemment, me suis plantée cela ne fonctionne pas :??:
Juste le petit message "Erreur d'envoie du message" qui s'affiche.
Le pire! c'est que cela fonctionnais avant que je fasse des modif :heink:
(enfin, pour les deux premiers)
-Modif faites:
texte et l'@ mail (deux au lieu d'une seul, séparées par " ; " )
Code:
Private Sub CommandButton1_Click()
On Error GoTo Err
Set myOlapp = CreateObject("Outlook.Application")
Set Email = myOlapp.CreateItem(olMailItem)
Dim destinataires As String
destinataires = Email.Recipients.Add(Workbooks("GI 2009").Worksheets("FORMULAIRE").Range("C58").Value)
Dim agence As String
agence = Workbooks("GI 2009").Worksheets("FORMULAIRE").Range("H13").Value
Email.Subject = "Prise en compte de l'intervention: " & agence
Email.Body = corpsdumail()
Email.Send
MsgBox ("Le message a bien été envoyé")
Exit Sub
Err:
MsgBox ("Erreur d'envoie du message")
End Sub
Function corpsdumail() As String
Dim Ninter As String
Ninter = Workbooks("GI 2009").Worksheets("FORMULAIRE").Range("H8").Value
Dim Presta As String
Presta = Workbooks("GI 2009").Worksheets("FORMULAIRE").Range("B13").Value
Dim Mot As String
Mot = Workbooks("GI 2009").Worksheets("FORMULAIRE").Range("B29").Value
Dim echea As String
echea = Workbooks("GI 2009").Worksheets("FORMULAIRE").Range("D27").Value
Dim delai As String
delai = Workbooks("GI 2009").Worksheets("FORMULAIRE").Range("I30").Value
Dim texte As String
texte = "Bonjour," & _
vbCrLf & "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX:" & vbCrLf & _
vbCrLf & "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX:" & _
vbCrLf & vbCrLf & "XXXXXXXXXX: " & Ninter & _
vbCrLf & "XXXXXXXXXXXXXX: " & Presta & _
vbCrLf & "XXXXXXXXXXXXXXXXX :" & Mot & _
vbCrLf & "XXXXXXXXXXXXXXXXXXXXXXXXXXXéXXXXXX éXXXX : " & echea & _
vbCrLf & "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX " & delai & "XXXX" & vbCrLf & _
vbCrLf & "Cordialement" & vbCrLf & _
vbCrLf & "XXXXXXXXXXXXXXXXXXXXXXXXXXXX."
corpsdumail = texte
End Function
Private Sub CommandButton2_Click()
On Error GoTo Err
Set myOlapp = CreateObject("Outlook.Application")
Set Email = myOlapp.CreateItem(olMailItem)
Dim destinataires As String
destinataires = Email.Recipients.Add(Workbooks("GI 2009").Worksheets("FORMULAIRE").Range("C58").Value)
Dim agence As String
agence = Workbooks("GI 2009").Worksheets("FORMULAIRE").Range("H13").Value
Dim BO As String
BO = Workbooks("GI 2009").Worksheets("FORMULAIRE").Range("G13").Value
Email.Subject = " XXXXXXXXXXXXXXXXXXXXXXXXXXXXX : XXXXXX DE " & agence & " " & BO
Email.Body = corpsdumails()
Email.Send
MsgBox ("Le message a bien été envoyé")
Exit Sub
Err:
MsgBox ("Erreur d'envoie du message")
End Sub
Function corpsdumails() As String
Dim Ninter As String
Ninter = Workbooks("GI 2009").Worksheets("FORMULAIRE").Range("H8").Value
Dim Age As String
Age = Workbooks("GI 2009").Worksheets("FORMULAIRE").Range("H13").Value
Dim BO As String
BO = Workbooks("GI 2009").Worksheets("FORMULAIRE").Range("G13").Value
Dim adrs As String
adrs = Workbooks("GI 2009").Worksheets("FORMULAIRE").Range("G15").Value
Dim Dpt As String
Dpt = Workbooks("GI 2009").Worksheets("FORMULAIRE").Range("G16").Value
Dim vil As String
vil = Workbooks("GI 2009").Worksheets("FORMULAIRE").Range("H16").Value
Dim dest As String
dest = Workbooks("GI 2009").Worksheets("FORMULAIRE").Range("A44").Value
Dim pan As String
pan = Workbooks("GI 2009").Worksheets("FORMULAIRE").Range("B29").Value
Dim texte As String
texte = "XXXXXXXXXX" & _
vbCrLf & "XXXXXXXXXXXXXXXXXXXXXXX : " & Ninter & vbCrLf & _
vbCrLf & "Bonjour," & vbCrLf & _
vbCrLf & "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX : " & vbCrLf & _
vbCrLf & "XXXXXX :" & Age & _
vbCrLf & "XXXXX :" & BO & _
vbCrLf & "adresse :" & adrs & Dpt & vil & _
vbCrLf & "XXXXXXXXX :" & dest & vbCrLf & _
vbCrLf & vbCrLf & "XXXXXXXXXXXXXXXX:" & _
vbCrLf & pan
corpsdumails = texte
End Function
Private Sub CommandButton3_Click()
On Error GoTo Err
Set myOlapp = CreateObject("Outlook.Application")
Set Email = myOlapp.CreateItem(olMailItem)
Dim destinataires As String
destinataires = Email.Recipients.Add(Workbooks("GI 2009").Worksheets("Formulaire").Range("C58").Value)
Dim agence As String
agence = Workbooks("GI 2009").Worksheets("FORMULAIRE").Range("G13").Value
Email.Subject = " Cloture de l'intervention " & agence
Email.Body = corpsdumailss()
Email.Send
MsgBox ("Le message a bien été envoyé")
Exit Sub
Err:
MsgBox ("Erreur d'envoie du message")
End Sub
Function corpsdumailss() As String
Dim Ninter As String
Ninter = Workbooks("GI 2009").Worksheets("FORMULAIRE").Range("H8").Value
Dim clo As String
clo = Workbooks("GI 2009").Worksheets("FORMAULAIRE").Range("I27").Value
Dim texte As String
texte = "Bonjour," & _
vbCrLf & "XXXXXXXXXXXXXXXXXXX" & Ninter & "a XXXXXXXXXXXXXXXXXXXXXXXXxx" & clo & ".Merci,XXXXXXXXXXXXX." & _
vbCrLf & "XXXXXXXXXXXXXXXXXXXXXXXXX"
corpsdumailss = texte
End Function
pour chaque boutons je change la variable en:la cassse pour "corpsdumail"
corpsdumail s ou 1
corpsdumails s ou 2
....
et pour les retours ChariO?
Code:
.....vbcrLf & _
vbcLf........"
End Sub
Si j'ai oublié des infos, n'hésitez pas.
MERCI à TouS