Wysyłanie powiadomień EPDM pocztą elektroniczną

Out of category
1

Witam

Utworzyłem powiadomienie, aby powiadomić kogoś o działaniu pocztą e-mail. Rzeczywiście, powiadomienie pojawia się w skrzynce odbiorczej usługi EPDM, ale czy to możliwe, że ta informacja jest również wysyłana na jego skrzynkę pocztową Outlook?

Bez względu na to, ile wpiszę adresu e-mail, wydaje się, że to nie działa...

Dziękuję za pomoc :)

Pozdrowienia

Audrey.

2

Witam

Musisz wypełnić ustawienia serwera pocztowego swojej firmy w narzędziu administracyjnym EPDM.

Musisz także mieć dedykowany adres e-mail, który jest używany do wysyłania wiadomości e-mail (epdm@.... )

Kamień

1 polubienie
3

Witam

Sam miałem ten problem, zintegrowałem fragment kodu w zadaniu "Generuj PDF"

Musisz tylko mieć program Outlook na komputerze, który uruchamia zadanie, Kod:

Używam również tego kodu, aby dodać załącznik do wysłanej wiadomości e-mail.

Z drugiej strony, w zależności od liczby osób na PDM, dodanie odbiorców dla każdej osoby może szybko stać się skomplikowane.

Ponadto odbiorca jest ustalony zgodnie z nadawcą (nadawcami), jedyną możliwością jego zmiany byłoby skorzystanie z narzędzia administracyjnego.


To tylko druga ścieżka, która nie będzie opłacalna, jeśli masz zmieniający się wybór osób do powiadomienia.

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