EPDM-meldingen per e-mail verzenden

Out of category
1

Hallo

Ik heb een melding gemaakt om iemand per e-mail op de hoogte te stellen van een actie. De melding verschijnt inderdaad in de inbox van de EPDM-service, maar is het mogelijk dat deze informatie ook naar zijn Outlook-mailbox wordt gestuurd?

Het maakt niet uit hoeveel ik een e-mailadres invoer, het lijkt niet te werken...

Dank u voor uw hulp:)

Vriendelijke groeten

Audrey.

2

Hallo

U dient de instellingen van de mailserver van uw bedrijf in te vullen in de EPDM-beheertool.

U moet ook een speciaal e-mailadres hebben dat wordt gebruikt om e-mails te verzenden (epdm@.... )

Steen

1 like
3

Hallo

Ik had dit probleem zelf, ik heb een stuk code geïntegreerd in de taak "Genereer een PDF"

U hoeft alleen maar Outlook te hebben op de pc die de taak start, Code:

Ik gebruik deze code ook om de bijlage toe te voegen aan de verzonden e-mail.

Aan de andere kant kan het, afhankelijk van het aantal mensen op de PDM, snel ingewikkeld worden om de ontvangers voor elke persoon toe te voegen.

Ook staat de ontvanger vast op basis van de afzender(s), de enige mogelijkheid om dit te wijzigen is door de administratietool te doorlopen.


Dit is slechts een tweede spoor dat niet levensvatbaar zal zijn als je een wisselende selectie van mensen op de hoogte moet stellen.

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