Mail VBA et config outlook

[romubzh35]

bonjour je suis en train de me faire un fichier VBA mais je ne m'y retrouve pas
dans l'onglet menu en cliquant sur le bouton vert de droite j'arrive à une userform
mot de passe actuel okdemquai
si je coche la case "cochez si besoin intervention maintenance" j'aurais voulu faire partir un mail aux adresses mails renseignées dans l'onglet liste transporteur ma macro dit ca

Private Sub CheckBox8_Click()
Dim ClientEmail As Object
Dim Message As Object
Dim Corps As String

Set ClientEmail = CreateObject("Outlook.Application")
Set Message = ClientEmail.CreateItem(0)

Corps = "Bonjour" & vbCrLf & vbCrLf _
& "Une anomalie a été détectée durant le ok demarrage" & vbCrLf & vbCrLf _
& "Merci de prévoir une intervention rapidement. " & vbCrLf _
& "Logistique reception. " & vbCrLf _
& "Gap leader 652. " & vbCrLf _

On Error Resume Next
With Message
.To = "blabla@bla.com;"
.CC = "blabla@bla.com"
.Subject = "OK demarrage quai reception non conforme"
.Body = Corps
.Send

MsgBox "Message envoyé avec succès à " & Format(Time(), "hh:mm"), vbOKOnly, "OK DEMARRAGE NON CONFORME" 'Message confirmant l'envoi du mail avec précision de l'heure d'envoi
End With
On Error GoTo 0

Set Message = Nothing
Set ClientEmail = Nothing

End Sub

je ne sais pas comment la modifier pour lui dire d'aller chercher les valeurs
ensuite j'obtiens ce message dans outlook comment faire en sorte pour le supprimer

merci pour votre aide

 

[Lone-wolf]

Bonsoir romubzh

Personnellement je n'ai pas ce problème. Mais, pas besoin des liens sur la feuille vu que tu utilise Outlook, il faut les supprimer. Et surtout maet des adresses valides en non toto@toto.com.

Private Sub CheckBox8_Click()
  Dim ClientEmail As Object
    Dim Message
    Dim Corps As String

    Set ClientEmail = CreateObject("Outlook.Application")
    Set Message = ClientEmail.CreateItem(0)

    Corps = "Bonjour" & vbCrLf & vbCrLf _
                    & "Une anomalie a été détectée durant le ok demarrage" & vbCrLf & vbCrLf _
                    & "Merci de prévoir une intervention rapidement. " & vbCrLf _
                    & "Logistique reception. " & vbCrLf _
                    & "Gap leader 652. " & vbCrLf _

    On Error Resume Next
    With Message
        .To = "blabla@live.com"
        .CC = "bloblo@yahoo.fr"
        .Subject = "OK demarrage quai reception non conforme"
        .Body = Corps
        .Display
    End With
        MsgBox "Message envoyé avec succès à " & Format(Time(), "hh:mm"), vbOKOnly, "OK DEMARRAGE NON CONFORME" 'Message confirmant l'envoi du mail avec précision de l'heure d'envoi

    On Error GoTo 0

    Set Message = Nothing
    Set ClientEmail = Nothing

End Sub

 

[romubzh35]

Bonsoir et merci de l aide
En fait je voudrais des liens car si un jour on decide de changer les adresses mail et que je suis plus la ce sera plus simple de trouver ou modifier si c est une cellule d un onglet..
J ai essayé avec des adresses valides et tout fonctionne sauf cette fameuse boute qui s affiche et si je clique pas sur autoriser ca marche pas

 

[Lone-wolf]

Re

Un Xldiens, m'avait qu'il fallait aller dans les Options et décocher une case, mais je ne me souvient plus où .

 

[JCGL]

Bonjour à tous,
Salut Jeune Loup,

Pour contrer le message voir avec ClickYes...

A+ à tous

 

[romubzh35]

Bonsoir
Dans notre societe j aurais surement pas le droit d ajouter un petit programme comme ca

 

[Lone-wolf]

Bonsoir jeune Jean...Claude 🙂 😀

 

[JCGL]

Bonjour à tous,

Il est d'usage sur XLD de ne pas se moquer de l'âge des gentils intervenants SI L'AVATAR le permet...

A++ 😉
A+ à tous

 

[romubzh35]

Ptdr je suis venu aussi vite que possible je pensais avoir une solution