› פורומים › אפיון ופיתוח פריוריטי › השתלת "קישום חם" לתוך מכתב שנוצא בתוך הפעלה
- This topic has 4 תגובות, משתתף 1, and was last updated לפני 8 שנים, 8 חודשים by
אלמוני.
- Post
-
- דצמבר 25, 2016 בשעה 12:17 pm
אני מנסה ליצור מכתב חכם אשר נשלח ממסך "יומן משימות", אם כי השאלה כללית יותר ואינה מוגבלת אך ורק למסך הזה.אני יוצר מכתב באמצעות ממשק אשר מכניס נתונים לתוך מסך MAILBOXSEND. בכותרת המכתב אני כולל שדות מהמסך CUSTNOTESA ובמלל המסך אני מכניס שורות מ-CUSTNOTESTEXT (מה שמופיע במסך בן "תקציר המשימה". עד כאן הכל עובד טוב.
חסר לי בגוף המכתב הפניה למשימה עצמה, כדי שהנמען יכול ללחוץ עליה ולהגיע בחזרה אל המשימה. הגדרתי הודעה משימה
,
ומכניס ל-PAR1 את מספר המשימה, אך במכתב עצמו אני מקבל את המלל כפי שהוא, ללא ההפניה למסך.האם יש למישהו רעיון איך אני יכול להשתיל "קישור חם" לתוך המלל?
הנה הקוד הרלוונטי:
:PAR1 = ITOA (:GLOB_CN);
SELECT ENTMESSAGE ('CUSTNOTESA', 'F', 5002) INTO :GLOB_TEXT FROM
DUMMY;
INSERT INTO GENERALLOAD (LINE, RECORDTYPE, TEXT)
VALUES (2, '2', :GLOB_TEXT);
INSERT INTO GENERALLOAD (LINE, RECORDTYPE, TEXT)
VALUES (3, '2', '');
INSERT INTO GENERALLOAD (LINE, RECORDTYPE, TEXT)
SELECT 3 + SQL.LINE, '2', TEXT
FROM CUSTNOTESTEXT
WHERE CUSTNOTE = :GLOB_CN;
EXECUTE INTERFACE 'GLOB_CNSENDMAIL', SQL.TMPFILE, '-L', :GEN;
כאמור, מספר המשימה מופיע אך לא כקישור.
- Replies
-
- דצמבר 26, 2016 בשעה 12:22 am
ENTMESSAGE יתן לך טקסט בלבדכדי לקבל לינק במייל שלך תצטרך ליצור html בעצמך ולהכין בו בעצמך את הלינק
[ בבקשה לא לשלוח הודעות פרטיות במערכת - אני לא קורא אותן ]- דצמבר 26, 2016 בשעה 12:24 am
ולכן תרצה 2 הודעות
טקסט עד הלינק ולאחר הלינק ואת הלינק נסח ישר בקוד (ממילא מספר המשימה מגיע ממשתנה)[ בבקשה לא לשלוח הודעות פרטיות במערכת - אני לא קורא אותן ]- דצמבר 26, 2016 בשעה 10:24 am
- דצמבר 26, 2016 בשעה 12:51 pm
בסוף הסתדרתי. צריך לזכור שיש רוחב מוגדר לשדה TEXT ב-GENERALLOAD לכן מוטב לשמור קטעים קצרים כל פעם במקום לכתוב את כל פקודת ה-HTML במכה אחת. עקרונית אני גם צריך לשלוף את שם הסביבה ולשתול אותו בתוך המחרוזת
SELECT MAX (LINE) INTO :GLINE FROM GENERALLOAD;
INSERT INTO GENERALLOAD (LINE, RECORDTYPE, TEXT)
VALUES (:GLINE + 1, '2', '');
INSERT INTO GENERALLOAD (LINE, RECORDTYPE, TEXT)
VALUES (:GLINE + 2, '2', STRCAT (
'', ' המישמ'));
INSERT INTO GENERALLOAD (LINE, RECORDTYPE, TEXT)
VALUES (:GLINE + 3, '2', STRCAT ('', ITOA (:GLOB_CN),
''));
INSERT INTO GENERALLOAD (LINE, RECORDTYPE, TEXT)
VALUES (:GLINE + 4, '2', '');
אני מקווה שלא אצטרך לבצע זאת שוב בזמן הקרוב!
- יש להתחבר למערכת על מנת להגיב.