Envoi mail outlook fermé via usf

Bosco13

XLDnaute Occasionnel
bonjour Le forum,

Je viens vers vous car j'ai un petit soucis pour l'envoie d'un message si outlook est fermé
je suis parti d'un code trouvé sur le forum , merci a son auteur,

avec : .send cela fonctionne outlook ouvert mais pas fermé avec display, il n'y a aucun soucis.
je souhaiterai que cela puisse ce faire si la session outlook est fermée. ou ouverte
j'ai essayé differents codes trouvés sur le forum sans y arriver malheureusement.

je vous met le code ci dessous

Peut etre trouverez vous la solution

en vous remerciant d'avance

bosco

HTML:
Private Sub CommandButton1_Click()
'LES VALEUR AADAPTER  SONT A PRENDRE A PARTIR DE L'USF de demande ou modif
    Dim OL As Object
    Dim OLmail As Object
    Dim Texte As String
     
    Set OL = CreateObject("Outlook.Application")
    Set OLmail = OL.CreateItem(0)
    
    Texte = "NOM DU BATIMENT a adapter le " & Format(Date, "dd/mm/yy")
    Texte = Texte & "<br /><br /> Bonjour truc, "
    Texte = Texte & "<br />"
    Texte = Texte & "<br /><br />Une Nouvelle demande d'acces pour un agent, est en attente dans le fichier de gestion du bâtiment. "
    Texte = Texte & "<br /><br />"
    Texte = Texte & "<br /><b><FONT COLOR=GRAY>NOM:</FONT></b>" & " " & TextBox1.Value
    Texte = Texte & "<br /><br /><b><FONT COLOR=GRAY>PRENOM:</FONT></b>" & " " & TextBox2.Value
    Texte = Texte & "<br /><br /><b><FONT COLOR=GRAY>IDENTIFIANT:</FONT></b>" & " " & TextBox3.Value
    Texte = Texte & "<br /><br /><b><FONT COLOR=GRAY>SECTEUR:</FONT></b>" & " " & TextBox4.Value
    Texte = Texte & "<br /><br /><b><FONT COLOR=GRAY>FONCTION:</FONT></b>" & " " & TextBox5.Value
    Texte = Texte & "<br /><br /><b><FONT COLOR=GRAY>EMAIL:</FONT></b>" & " " & TextBox8.Value
    Texte = Texte & "<br /><br />"
    Texte = Texte & "<br /><br /><br /><br /><b><FONT COLOR=BLUE>DEMANDEUR:</FONT></b>" & " " & TextBox6.Value & TextBox7.Value
    'Texte = Texte & "<br /><br />"
    Texte = Texte & " <br /><br />En vous remerciant d'avance." '& vbCrLf & vbCrLf
    Texte = Texte & "<br /><br />Cordialement." ' & vbCrLf
    
    With OLmail
    .To = "truc@machin.fr"
    '.BCC = " a prevoir" 'equivalent CCi  copie cachée
    '.CC = "Bidule@Truc.fr" & ";" & "tartempion@ficele.fr" ' Equivalent copie      ( CEST A PREVOIR )
    .Subject = "DEMANDE ACCES"
    '.Body = Texte  ' pour du texte sans gras
        BodyFormat = olFormatHTML 'pour le gras..ect..!
        .HTMLBody = Texte ' Pour le gras couleur ect..........!
        ' .Attachments.Add ThisWorkbook.Path & "\" & ThisWorkbook.Name
        .Display ' voir avant envoi  FONCTIONNE FERMER OU OUVERT
        '.Send 'envoi automatique  NE FONCTIONNE PAS SI FERME
        End With
   ' CreateObject("Wscript.shell").Popup "Vous avez également reçu une copie du mail !", 2, "COPIE EMAIL"
End Sub
 
Dernière édition:

Bosco13

XLDnaute Occasionnel
Re : Envoi mail outlook fermé via usf

re Le forum
Oups je crois que je me suis trompé de balise

EDIT: Je joint mon fichier essai pour plus de facilité


Merci a tous

Bosco
 

Pièces jointes

  • Envoi_mail.xlsm
    23.2 KB · Affichages: 23
  • Envoi_mail.xlsm
    23.2 KB · Affichages: 33
  • Envoi_mail.xlsm
    23.2 KB · Affichages: 28
Dernière édition:

Bosco13

XLDnaute Occasionnel
Re : Envoi mail outlook fermé via usf

Re a tous,

J'ai trouvé

J'ai modifier comme suit et cela fonctionne

On Error Resume Next j'ai rajoute
OLmail.Open j'ai rajouté
With OLmail
.To = "truc@machin.fe"
'.BCC = " a prevoir" 'equivalent CCi copie cachée
'.CC = "Bidule@Truc.fr" & ";" & "tartempion@ficele.fr" ' Equivalent copie ( CEST A PREVOIR )
.Subject = "DEMANDE ACCES"

BodyFormat = olFormatHTML 'pour le gras..ect..!
.HTMLBody = Texte ' Pour le gras couleur ect..........!


OLmail.Send J'ai modifié
End With

merci a tous

@@+ Bosco
 

Bosco13

XLDnaute Occasionnel
Re : Envoi mail outlook fermé via usf

Bonjour Le forum,

Je reviens vers vous, car je me retrouve a nouveau avec le probleme outlook fermé

outlook ouvert pas de soucis

Mais outlook2010 fermé il ne s'ouvre pas !


peut etre avez vous une solution.
En vous remerciant d'avance

Bosco
mais
 

Discussions similaires

Réponses
6
Affichages
268

Statistiques des forums

Discussions
311 720
Messages
2 081 907
Membres
101 836
dernier inscrit
karmon