In my function it creates an email with attachments etc. Is there an existing function to add a signature to an email through code. I can't find any current solutions.
The signature just contains a load of text.
Thank you.
*This post is locked for comments
I've added this code to my email sending function.
On the Line FileManagment.BLOBExport(TempBlob,'C:\Users\LewisH.TIOGA-DOMAIN\Signature',FALSE); thats where I want it to retrieve the image from. Within the BlobExport Function how can i change it to attach the image from that path?
recCompanyInfo.CALCFIELDS(Picture);
IF recCompanyInfo.Picture.HASVALUE THEN BEGIN
TempBlob.INIT;
TempBlob.Blob := recCompanyInfo.Picture;
TempBlob.INSERT;
FileName := FileManagment.BLOBExport(TempBlob,'C:\Users\LewisH.TIOGA-DOMAIN\Signature',FALSE);
END;
cuSMTP.AppendBody('<IMG style="HEIGHT: 153px; WIDTH: 445px" src="file:///'+ FileName +'"'+ 'width=100 height=100>');
cuSMTP.Send;
BlobExport Code:
BLOBRef.Blob.CREATEINSTREAM(NVInStream);
IF STRPOS(Name,'*') = 0 THEN
ToFile := Name
ELSE BEGIN
ToFile := INSSTR(Name,Text001,1);
ToFile := DELCHR(ToFile,'=','*');
END;
WHILE STRPOS(ToFile,'\') <> 0 DO BEGIN
p := STRPOS(ToFile,'\');
ToFile := COPYSTR(ToFile,p + 1);
END;
Path := 'C:\TEMP';
IF NOT CommonDialog THEN
Path := Magicpath;
DOWNLOADFROMSTREAM(NVInStream,Text006,Path,GetToFilterText('',Name),ToFile);
EXIT(ToFile);
If possible Adding an image to the signature would be ideal, otherwise just text is useful.
Thank you. I'm struggling to follow the code to match my own needs.
Here is my current code:
recTiogaSetup.FINDFIRST;
IF blnFound1 = TRUE THEN BEGIN
IF objMscorbFile.Exists(recTiogaSetup."Job Queue Document Folder" + recPurchaseOrderTMP."Buy-from Vendor No." + '.xlsx') THEN
objMscorbFile.Delete(recTiogaSetup."Job Queue Document Folder" + recPurchaseOrderTMP."Buy-from Vendor No." + '.xlsx');
recExcelBufferTMP.CreateBookJobQueue(recPurchaseOrderTMP."Buy-from Vendor No.");
recExcelBufferTMP.WriteSheet('Outstanding Purchase Order','TIOGA',USERID);
recExcelBufferTMP.columns.AutoFit;
recExcelBufferTMP.CloseBook();
recVendor.GET(recPurchaseOrderTMP."Buy-from Vendor No."); // TIO000016
strEmailNo :=
cuSMTP.EmailRecordMessageCreateWithStdLogo( // TIO000016
recVendor."Order Confirmation Email",
'',
STRSUBSTNO(
Text015
));
cuSMTP.EmailRecordMessageFileandFolder(strEmailNo, recPurchaseOrderTMP."Buy-from Vendor No." + '.xlsx' ,recTiogaSetup."Job Queue Document Folder");
cuSMTP.EmailRecordMessageLineBlank(strEmailNo,2);
cuSMTP.EmailRecordMessageLine(
strEmailNo,
STRSUBSTNO(
Text016
),
STRSUBSTNO(
Text019
),
FALSE
);
cuSMTP.EmailRecordMessageEnd(strEmailNo);
END;
Hello Lewis,
We are not aware of your code that you written,
anyway you can add signature.
just you need to Append the body before sending the email.
See the link for reference Use Email with Company Logo
Still if you have any doubt then share your code we will tell you, what & where you need to add.
Stay up to date on forum activity by subscribing. You can also customize your in-app and email Notification settings across all subscriptions.
#1
André Arnaud de Cal...
291,253
Super User 2024 Season 2
#2
Martin Dráb
230,188
Most Valuable Professional
#3
nmaenpaa
101,156
Share
Report
All responses (
Answers (