Hello,
How did you configure the SMTP Server in BC140? Otherwise, take a look here:
LOCAL PROCEDURE QualifyFromAddress@2();
VAR
TempPossibleEmailNameValueBuffer@1000 : TEMPORARY Record 823;
MailForEmails@1001 : Codeunit 397;
BEGIN
OnBeforeQualifyFromAddress(TempEmailItem);
IF TempEmailItem."From Address" <> '' THEN
EXIT;
MailForEmails.CollectCurrentUserEmailAddresses(TempPossibleEmailNameValueBuffer);
IF GraphSupported THEN
IF AssignFromAddressIfExist(TempPossibleEmailNameValueBuffer,'GraphSetup') THEN
EXIT;
IF SMTPSupported THEN BEGIN
IF AssignFromAddressIfExist(TempPossibleEmailNameValueBuffer,'SMTPSetup') THEN
EXIT;
IF AssignFromAddressIfExist(TempPossibleEmailNameValueBuffer,'UserSetup') THEN
EXIT;
IF AssignFromAddressIfExist(TempPossibleEmailNameValueBuffer,'ContactEmail') THEN
EXIT;
IF AssignFromAddressIfExist(TempPossibleEmailNameValueBuffer,'AuthEmail') THEN
EXIT;
IF AssignFromAddressIfExist(TempPossibleEmailNameValueBuffer,'AD') THEN
EXIT;
END;
IF TempPossibleEmailNameValueBuffer.ISEMPTY THEN BEGIN
IF FileManagement.IsWebClient THEN
ERROR(FromAddressWasNotFoundErr);
TempEmailItem."From Address" := '';
EXIT;
END;
IF AssignFromAddressIfExist(TempPossibleEmailNameValueBuffer,'') THEN
EXIT;
END;
Hope it helps.
