Discussion :

[Olivierporcinet]

Bonjour,

Dans mon tableau, il y a une MFC sur la colonne G3:G900 (remplissage en rouge).

=ET($D3<>"";$D3<AUJOURDHUI()+21;$G3="")


J'aimerais que lorsque la condition est remplie, qu'un mail s'envoie "automatiquement".

Un texte tour fait devra être créé au préalable, et de ce fait, je devrais juste mettre l'objet et le destinataire.

Des idées ?

Merci.

Bonne journée.

[halaster08]

Bonjour,

Ajoute une colonne a ton tableau avec le formule de ta MFC puis en vba fait une boucle dessus, si vrai alors envoi de mail
Tu peux aussi ne pas ajouter de colonne et traduire ta formule en vba directement

Pour envoyer un mail via outlook

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Dim ObjOutlook As Object, oBjMail As Object
Set ObjOutlook = CreateObject("outlook.application")
 
    Set oBjMail = ObjOutlook.CreateItem(olMailItem)
        With oBjMail
            .Display
            .To = "" 'destinataire
            .CC = "" 'copie
            .Subject = "" 'titre
            Body = "ton message" & .Body 'corps du mail
            'pièces jointes
           '.Attachments.Add 
            'au choix l'une des trois lignes suivantes
            .Display 'pour afficher le message dans outlook
            '.Save 'pour le sauver dans les brouillons
            '.send 'pour l'envoyer
 
        End With

[Olivierporcinet]

Bonjour,

Merci pour la réponse.


Est-il possible d'insérer aussi une signature ?


Dans l'objet, j'ai mis un texte et j'aimerais reprendre le contenu de la colonne F (numérique) qui est en rapport avec la cellule en rouge de la colonne G.


Comment faire pour que le mail s'envoie automatiquement si des cellules de la colonne G sont en rouge (MFC) ?

Comme il peut y avoir plusieurs cellules en rouge, plusieurs mails doivent se créer. De ce fait, je devrais juste indiquer les destinataires.


Merci.

Belle journée

[halaster08]

Est-il possible d'insérer aussi une signature ?

Oui, c'est déjà le cas dans le code que je t'ai donné

Dans l'objet, j'ai mis un texte et j'aimerais reprendre le contenu de la colonne F (numérique) qui est en rapport avec la cellule en rouge de la colonne G.

En utilisant l'indice de ta boucle tu peux récupérer le contenu de la cellule F de cette ligne, puis utiliser l'opérateur de concaténation "&" pour l'insérer dans/après ton texte

Comment faire pour que le mail s'envoie automatiquement si des cellules de la colonne G sont en rouge (MFC) ?

J'ai déjà répondu à cette question, faire une boucle et vérifier la condition de ta MFC a chaque itération

Comme il peut y avoir plusieurs cellules en rouge, plusieurs mails doivent se créer. De ce fait, je devrais juste indiquer les destinataires.

tu peux aussi ajouter les destinataires dans une colonne supplémentaire et ainsi automatiser la complétion du champ

[Olivierporcinet]

Merci mais trop compliqué pour moi..... j'essaie de me dépatouiller avec le VBA depuis quelques temps mais pas facile.

Pour la signature, j’ai essayé dans Body mais erreur de syntaxe et pourtant tout est OK...

[Olivierporcinet]

J'ai déjà un peu avancé, dans l'objet j'ai le contenu de la colonne F

[halaster08]

Pour la signature je viens de me rendre compte que j'ai un peu trop nettoyer le code que je t'ai donné

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 .Body = "ton message" & .body

[Olivierporcinet]

Merci pour la signature.

Le logo n’apparaît pas ni la mise en forme, couleur police, ....

[Olivierporcinet]

Pour faire apparaître les infos numériques de la colonne "F" dans l'objet :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.Subject = "Intervention pas traitée : DI n° " & Range("F3") 'titre

Est-ce que les lignes de la colonne "F" vont s'adapter par rapport à la colonne "G" si condition respectée ?

Merci

[halaster08]

Moi je n'ai pas de souci avec ma signature qui contient logo et couleur
Eventuellement essaye de passer le texte au format html

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 .htmlBody = "ton message" & .htmlBody 'corps du mail

[halaster08]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.Subject = "Intervention pas traitée : DI n° " & Range("F3") 'titre

Est-ce que les lignes de la colonne "F" vont s'adapter par rapport à la colonne "G" si condition respectée ?

Non, tu as mis F3 il prendra F3 comme tu le lui a demandé

J'insiste avec une boucle tu peux utiliser l'indice de boucle pour avoir la bonne ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.Subject = "Intervention pas traitée : DI n° " & Range("F" & i) 'titre

où i serait ton indice de boucle

[Olivierporcinet]

L'objet ne s'affiche plus avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.Subject = "Intervention pas traitée : DI n° " & Range("F" & i) 'titre

Ma première ligne commence en "F3". Si j'indique cela, l’objet s'affiche.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("F3" & i)

Les sauts de lignes ne s'effectuent pas

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

& Chr(10) & Chr(10)

avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.htmlBody

[halaster08]

Je ne maitrise pas le html, mais je sais que le saut de ligne se code différemment qu'en vba

L'objet ne s'affiche plus

Quel est la valeur de i ?

Ma première ligne commence en "F3".

Donc il faut faire une boucle commençant à la ligne 3

[Olivierporcinet]

L'objet s'affiche en commençant en F3

[Olivierporcinet]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.HTMLBody = "Bonjour," & "<br><br>" & "" & "<br>" & "Nous sommes sans nouvelles ." & "<br>"

Comment faire pour avoir par défaut la police "Times New Roman" en 12 ?

Merci

[laurent_ott]

Comment faire pour avoir par défaut la police "Times New Roman" en 12 ?

Essayez ceci (pour écrire "Bonjour le monde") :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

<font face=Times size=3>Bonjour le monde</font>

Pour information, la nouvelle police de Microsoft est "Aptos".
Bonne continuation.

[Olivierporcinet]

Bonjour,

Merci.

Bonne journée.