Sending EPDM notifications by email

Out of category
1

Hello

I created a notification to notify someone of an action by email. Indeed the notification appears in the EPDM service inbox but is it possible that this information is also sent to his Outlook mailbox?

No matter how much I enter an email address, it doesn't seem to work...

Thank you for your help:)

Kind regards

Audrey.

2

Hello

You need to fill in the settings of your company's mail server in the EPDM administration tool.

You also need to have a dedicated email address that is used to send emails (epdm@.... )

Stone

1 Like
3

Hello

I had this problem myself, I integrated a piece of code in the "Generate a PDF" task

You just need to have outlook on the pc that launches the task, Code:

I also use this code to add the attachment to the email sent.

On the other hand, depending on the number of people on the PDM, it can quickly become complicated to add the recipients for each person.

Also, the recipient is fixed according to the sender(s), the only possibility to change it would be to go through the administration tool.


This is just a second track that won't be viable if you have a changing selection of people to notify.

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