TCbBatchMail

Diese Klasse dient zum Versenden von E-Mails über das SMTP-Protokoll.

Eigenschaften

Eigenschaft	Beschreibung
Action:N	Versand ausführen gültiger Wert ist nur smtpSend
AttachedFiles:U	Datei/en welche der E-Mail angehängt werden sollen einzelner Dateiname oder Array mit Dateinamen
BCc:U	BCC Empfänger einzelner Empfänger oder Array mit Empfängern
Cc:U	CC Empfänger einzelner Empfänger oder Array mit Empfängern
From:C	Absender
MailServer:C	Adresse des E-Mail Servers
MessageText:C	E-Mail Nachricht
SendTo:U	Empfänger einzelner Empfänger oder Array mit Empfängern
Subject:C	Betreff
UserName:C	Login-Name für den E-Mail Server
Password:C	Login-Password für den E-Mail Server
CbPrimaryAccountID:C	ID des Kontos, anderes von Defaultkonto, dessen Einstellungen sollten für den E-Mail Versand verwendet werden. Dieses Konto wird im Versand-Dialog vorausgewählt, kann aber im Dialog geändert werden.

Funktionen

Funktionen	Beschreibung
CbLoadSettingsFromUserNo	Einstellungen für den Versand von einem Benutzer verwenden Die Versand-Art (SMTP, MAPI, ...) bleibt die des aktuellen Benutzers
CbLoadSettingsFromEmailAccount	Einstellungen für den Versand von einem E-Mail Konto verwenden Die Versand-Art (SMTP, MAPI, ...) bleibt die des aktuellen Benutzers

Beispiel

CODE

//##############################################################################
//##############################################################################
// Beschreibung: E-Mail über SMTP versenden
//##############################################################################
//##############################################################################

| m_oMailObj |

m_oMailObj := MailObject(),

m_oMailObj.SendTo      := 'test@test.de',
m_oMailObj.MessageText := 'Hallo, ich bin ein Test',
m_oMailObj.Subject     := 'Hallo',
m_oMailObj.CbLoadSettingsFromUserNo(90),
m_oMailObj.Action := smtpSend,

Beispiel von EMailFunc in Global\EMail mit CbPrimaryAccountID

CODE

function GetAccountIdForEMailTest()
| oDabSet, cUsrNo, cMailAccountData |

   Result  := '',
   cUsrNo  := Str(Val(c_Usr)),
   oDabSet := SQL(SELECT KEY2 FROM &.DbSQLTableName(waDabSet)
                       WHERE TYP = 5310 AND KEY1 = &cUsrNo), // 5310 = bcEMailSendType_UseAccount
   oDabSet.Active := true,
   oDabSet.CbFirst(),
   while not oDabSet.CbEOF do
      cMailAccountData := Lookup(waDabSet, 'TYP_KEY1', { 5300 /*DSET_Type_MailAccount*/, Trim(oDABSet:KEY2) }, 'DATA'),

      if 'test@dontenwill.de' $ cMailAccountData then
         Result := Trim(oDABSet:KEY2),
         break,
      endif,

      oDabSet.CbNext(),
   end,
end,

function EMailFunc(oBatchMail)
   | cAccountId |

   case oBatchMail.BelegTyp of

     20 :: // Auftragsbestätigung

        if M_EmailMod = 'K' then // EMail-Konkten verwenden
           cAccountId:= GetAccountIdForEMailTest(),
           //Meld('EMailFunc: AccountSettings: ' + oBatchMail.CbPrimaryAccountID + ' -> ' + cAccountID),
           if cAccountId <> '' then
             oBatchMail.CbPrimaryAccountID := cAccountId,
           endif,
        endif,
        
   endcase,
end,

Weitere Verknüpfungen

MailSend()