Betreff einer eingehenden Mail in AutoMail übernehmen

  • Hallo Greyhounds,


    ist es möglich den Betreff einer eingehenden Mail mit einem Suffix in den Betreff einer AutoMail zu übernehmen?
    Sozusagen: "RE: Anfrage zu irgendetwas..."


    Über eine Regel läßt sich ja erst mal nur ein "Entwurf" als AutoMail versenden, und der hat immer einen festen Betreff.


    Viele Grüße
    Markus

  • Hallo Markus,


    ja, wenn du die Ausführung der Auto-Antwort im Quelltext ausführst und noch eine Quelltextzeile (rot markiert) hinzufügst, geht das:



    var
    AutoReplyItem: TFbmItem;
    DraftItem: TFbmItem;


    begin
    DraftItem := TFbmItem.Create(ikEmail, 0);
    try
    DraftItem.DbQuery := DbQuery;
    DraftItem.LoadAttachmentsContent;
    DraftItem.Load(763);
    if Item.Kind = DraftItem.Kind then
    begin
    AutoReplyItem := TFbmItem.Create(DraftItem.Kind, 0);
    try
    AutoReplyItem.Assign(DraftItem, [iaoAttachments, iaoProperties, iaoUserFields, iaoNowAsCreated], iasNew);
    AutoReplyItem.State := 'dfdfisAnswer;
    AutoReplyItem.TaskNumber.Assign(Item.TaskNumber);
    AutoReplyItem.Classified.Assign(Item.Classified);
    AutoReplyItem.Subject := 'AW: ' + Item.Subject;
    if Assigned(AutoReplyItem.Recipients) then
    begin
    if (Item.Kind = ikEmail) and (Item.Properties is TFbmItemEMailProperties) and (TFbmItemEMailProperties(Item.Properties).ReplyTo.Count > 0) then
    AutoReplyItem.Recipients.Text := TFbmItemEMailProperties(Item.Properties).ReplyTo.Text
    else if Assigned(Item.From) then
    AutoReplyItem.Recipients.Text := Item.From.Text;
    end;
    if AutoReplyItem.PreventBouncing then
    AutoReplyItem.Save;
    finally
    AutoReplyItem.Free;
    end;
    end;
    finally
    DraftItem.Free;
    end;
    end.