FlowFact - Entwicklungstools

zurück

Sub - cmd_Akt_Email_Click
EMail schreiben und in den Postausgang legen

Es wird eine EMail-Aktivität mit Datei-Anhängen erzeugt und in den Postausgang gelegt (versenden aktiviert).
  Sub cmd_Akt_Email_Click()  
 




Public Sub cmd_Akt_Email_Click()
    Dim strInput As String
    Dim strSubject As String
    Dim strBody As String
    Dim strAktArtDsn As String
    Dim strAktDsn As String
    Dim strAttachment As String
    Dim strMailTo As String

    strInput = InputBox("Bitte geben Sie eine EMail in der Form 'EMailAdresse,Betreff,Body' ein.", "EMail anlegen", "info@flowfact.de,TestEMail,Das ist eine automatisch angelegte EMail.")

    strMailTo = m_oFFDeveloper.oTools.StrList_DeleteFirst(strInput, ",")
    strSubject = m_oFFDeveloper.oTools.StrList_DeleteFirst(strInput, ",")
    strBody = m_oFFDeveloper.oTools.StrList_DeleteFirst(strInput, ",")

    strAktArtDsn = m_oFFDeveloper.oBase.BEN_EMailAktArt

    '** Aktivität mit std. Merkmalen anlegen
    strAktDsn = m_oFFDeveloper.AKT_CreateEMail(strAktArtDsn, strMailTo, "", strSubject, strBody, strAttachment)

    '** Aktivität in FlowFact anzeigen
    m_oFFDeveloper.AKT_ShowDSN strAktDsn
End Sub