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.