XL2003/Problème de fonctionnement boutons/ envois mail Outlook

  • Auteur de la discussion valmae
  • Date de début

valmae

Nouveau membre
Bonsoir à tous, :hello:

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
la cassse pour "corpsdumail"
pour chaque boutons je change la variable en:
corpsdumail s ou 1
corpsdumails s ou 2
....

et pour les retours ChariO?
Code:
.....vbcrLf & _          
       vbcLf........"
End Sub
Pensez-vous que cela peut venir de là ? :sweat:
Si j'ai oublié des infos, n'hésitez pas.


MERCI à TouS :)
 

zeb

Modérateur
J'ai rien compris. Et surtout, tu donnes trop d'info, je pense, inutile.

As-tu le code original qui fonctionne ?
Quels sont exactement, les changements effectués.

En particulier, tu parles de retour chariot. Respecte bien les doubles retours chariot présents dans le code originel. Quoi que ce devrait être à ton MUA de gérer ça.
 

Freeman23

Expert
Salut,

Rajoute pour commencer dans ton message d'erreur (PS : les parenthèses sont inutiles pour les actions, seules les fonctions en ont besoin) :

[cpp]
MsgBox "Erreur d'envoi du message : " & err.description
[/cpp]

Ca te dira ce qui te pose problème.

Déclare tes variables en haut dans tes procédures, d'ailleurs je ne vois pas la déclaration de myOlapp et de Email. Si tu ne l'as pas mis au début de ton code, rajoute en haut de ton module :

[cpp]
Option Explicit
[/cpp]

 
Vous devez vous inscrire ou vous connecter pour répondre ici.
Derniers messages publiés
Statistiques globales
Discussions
730 098
Messages
6 717 067
Membres
1 586 286
Dernier membre
petitangebleu1977
Partager cette page
Haut