![]() |
FlowFact - Entwicklungstools |
![]() |
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 |