diff --git a/Koha/Suggestion.pm b/Koha/Suggestion.pm
index 631c1f662a..37c509fa88 100644
--- a/Koha/Suggestion.pm
+++ b/Koha/Suggestion.pm
@@ -69,8 +69,7 @@ sub store {
     my $emailpurchasesuggestions = C4::Context->preference("EmailPurchaseSuggestions");
 
     my $result = $self->SUPER::store();
-
-    if( $emailpurchasesuggestions ){
+    if ( $emailpurchasesuggestions && $self->STATUS eq 'ASKED' ) {
 
         if (
             my $letter = C4::Letters::GetPreparedLetter(