If[ fnIsWebConnection( ) ]
If[ fnIsWebConnection( ) ]
If[ IsEmpty( Campaigns::Template Subject & Campaigns::Template Body ) ]
If[ IsEmpty( Campaigns::Template Subject & Campaigns::Template Body ) ]
Show Custom Dialog[ Message: "Please choose a template"; Buttons: “OK” ]
Show Custom Dialog[ Message: "Please choose a template"; Buttons: “OK” ]
Go to Field[ Campaigns::Template Subject ]
Go to Field[ Campaigns::Template Subject ]
Commit Records/Requests[ ] [ No dialog ]
Commit Records/Requests[ ] [ No dialog ]
If[ not( IsValid( campaigns_CampaignContacts::Contact ID ) ) ]
If[ not( IsValid( campaigns_CampaignContacts::Contact ID ) ) ]
Show Custom Dialog[ Message: "Please choose a recipient"; Buttons: “OK” ]
Show Custom Dialog[ Message: "Please choose a recipient"; Buttons: “OK” ]
Commit Records/Requests[ ] [ No dialog; Skip data entry validation ]
Set Field[ Campaigns::Temp Contact List Global; "" ]
Set Field[ Campaigns::Temp Contact List Global; "" ]
Go to Related Record[ From table: “campaigns_CampaignContacts”; Using layout: “CampaignContacts Utility” ] [ Show only related records ]
Go to Related Record[ From table: “campaigns_CampaignContacts”; Using layout: “CampaignContacts Utility” ] [ Show only related records ]
Set Field[ Campaigns::Temp Contact List Global; Campaigns::Temp Contact List Global & CampaignContacts::Contact ID & "¶" ]
Set Field[ Campaigns::Temp Contact List Global; Campaigns::Temp Contact List Global & CampaignContacts::Contact ID & "¶" ]
Go to Record/Request/Page[ Next; Exit after last ]
Go to Record/Request/Page[ Next; Exit after last ]
Go to Layout[ “Form View Campaigns” ]
Go to Layout[ “Form View Campaigns” ]
Set Variable[ $$desktop; Value: Let( [var0 = "filemac:" & Get( DesktopPath ); var1 = "filewin:" & Get( DesktopPath )]; Case( Abs( Get( SystemPlatform ) ) = 1; p_0; Abs( Get( SystemPlatform ) ) = 2; p_1 ) & GetAsText( Campaigns::Attachment ) ) ]
Set Variable[ $$desktop; Value: Let( [var0 = "filemac:" & Get( DesktopPath ); var1 = "filewin:" & Get( DesktopPath )]; Case( Abs( Get( SystemPlatform ) ) = 1; p_0; Abs( Get( SystemPlatform ) ) = 2; p_1 ) & GetAsText( Campaigns::Attachment ) ) ]
If[ not( IsEmpty( Campaigns::Attachment ) ) ]
If[ not( IsEmpty( Campaigns::Attachment ) ) ]
Export Field Contents[ Campaigns::Attachment; “$$desktop” ]
Export Field Contents[ Campaigns::Attachment; “$$desktop” ]
Set Field[ Campaigns::Temp Contact ID Global; LeftWords( Campaigns::Temp Contact List Global; 1 ) ]
Set Field[ Campaigns::Temp Contact ID Global; LeftWords( Campaigns::Temp Contact List Global; 1 ) ]
Set Field[ Campaigns::Temp Contact List Global; Substitute( Campaigns::Temp Contact List Global; LeftWords( Campaigns::Temp Contact List Global; 1 ) & "¶"; "" ) ]
Set Field[ Campaigns::Temp Contact List Global; Substitute( Campaigns::Temp Contact List Global; LeftWords( Campaigns::Temp Contact List Global; 1 ) & "¶"; "" ) ]
Send Mail[ Send via E-mail Client; To: Campaigns_Contact Management globalID::Email; Subject: Campaigns::Template Subject; Message: Campaigns::Temp Body Global & Case( IsEmpty( Campaigns::Attachment ); ""; 1; "¶¶" & GetAsText( Campaigns::Attachment ) ); Attachment: “$$desktop” ]
Send Mail[ Send via E-mail Client; To: Campaigns_Contact Management globalID::Email; Subject: Campaigns::Template Subject; Message: Campaigns::Temp Body Global & Case( IsEmpty( Campaigns::Attachment ); ""; 1; "¶¶" & GetAsText( Campaigns::Attachment ) ); Attachment: “$$desktop” ]
Exit Loop If[ Campaigns::Temp Contact List Global = "" ]
Exit Loop If[ Campaigns::Temp Contact List Global = "" ]
Set Field[ Campaigns::Temp Campaign ID Global; Campaigns::Campaign ID ]
Set Field[ Campaigns::Temp Campaign ID Global; Campaigns::Campaign ID ]
Go to Layout[ “Campaign History Utility” ]
Go to Layout[ “Campaign History Utility” ]
Set Field[ Campaign_History::Campaign ID; Campaigns::Temp Campaign ID Global ]
Set Field[ Campaign_History::Campaign ID; Campaigns::Temp Campaign ID Global ]
Commit Records/Requests[ ] [ No dialog; Skip data entry validation ]
Go to Layout[ “Form View Campaigns” ]
Go to Layout[ “Form View Campaigns” ]