Envoi de notification EPDM par mail

Out of category
1

Bonjour,

J'ai créé une notification pour avertir une personne d'une action par mail. Effectivement la notification apparait dans la boite de réception du service EPDM mais est-il possible que cette information soit envoyée également sur sa boite mail Outlook ?

J'ai beau renseigner une adresse mail cela n'a pas l'air de fonctionner...

Merci pour votre aide :)

Cordialement,

Audrey.

2

Bonjour,

Il faut que tu renseigne les paramètre du serveur de messagerie de ton entreprise dans l'outil d'administration d'EPDM.

Il faut aussi que tu ai une addresse mail dédier qui sert a envoyer les mail (epdm@.... )

Pierre,

1 « J'aime »
3

Bonjour,

J'ai moi-même eu ce soucis, j'ai intégré un bout de code dans la tache "Génération d'un PDF"

Il faut juste avoir outlook sur le pc qui lance la tache, Code :

J'utilise aussi ce code pour ajouter la pièce jointe au mail envoyé.

Par contre en fonction du nombre de personnes sur le PDM ça peut vite devenir compliqué d'ajouter les destinataires pour chaque personnes.

Aussi, le destinataire est fixe en fonction de l'expediteur(s), la seule possibilité pour le changer serait de passer par l'outil administration.


C'est juste une seconde piste qui ne sera pas viable si vous avez une sélection changeante des personnes a notifier.

Dim UserName As String

UserName = Environ("USERNAME")

If UserName = "***NOM PDM***" Then
    SENT = "***Mail Expediteur***"
    DEST = "***Mail Destinataire***"
    COPY = ""

ElseIf UserName = "***NOM PDM***" Then
    SENT = "***Mail Expediteur***"
    DEST = "***Mail Destinataire***"
    COPY = ""

ElseIf UserName = "***NOM PDM***" Then
    SENT = "***Mail Expediteur***"
    DEST = "***Mail Destinataire***"
    COPY = ""
 End If


Dim Email_Subject, Email_Send_From, Email_Send_To, _
Email_Cc, Email_Bcc, Email_Body As String
Dim Mail_Object, Mail_Single As Variant

strbody = "Nouvelle pièce en validation" & finalFileName & vbNewLine & vbNewLine & _
               "Pièce dispo dans le dossier de validation" & vbNewLine & _
               "C'est un test de mail automatique, tu pourras me dire si tu le reçoit bien, et si tu as bien le fichier en validation en PJ ?"
              
              
Email_Subject = "Fichier en attente de validation"
Email_Send_From = SENT
Email_Send_To = DEST
Email_Cc = COPY
Email_Bcc = ""
Email_Body = strbody
Set Mail_Object = CreateObject("Outlook.Application")
Set Mail_Single = Mail_Object.CreateItem(0)
With Mail_Single
.Subject = Email_Subject
.To = Email_Send_To
.cc = Email_Cc
.BCC = Email_Bcc
.Body = Email_Body
.Attachments.Add (convFileNameTemp)
.send
End With