Revision 9ef26511
Von Jan Büren vor mehr als 2 Jahren hinzugefügt
SL/Mailer.pm | ||
---|---|---|
sales_delivery_order => 'delivery_orders',
|
||
dunning => 'dunning',
|
||
);
|
||
my %type_to_email = (
|
||
sales_quotation => sub { $::instance_conf->get_email_sender_sales_quotation },
|
||
request_quotation => sub { $::instance_conf->get_email_sender_request_quotation },
|
||
sales_order => sub { $::instance_conf->get_email_sender_sales_order },
|
||
purchase_order => sub { $::instance_conf->get_email_sender_purchase_order },
|
||
invoice => sub { $::instance_conf->get_email_sender_invoice },
|
||
credit_note => sub { $::instance_conf->get_email_sender_invoice },
|
||
purchase_invoice => sub { $::instance_conf->get_email_sender_purchase_invoice },
|
||
letter => sub { $::instance_conf->get_email_sender_letter },
|
||
purchase_delivery_order => sub { $::instance_conf->get_email_sender_purchase_delivery_order },
|
||
sales_delivery_order => sub { $::instance_conf->get_email_sender_sales_delivery_order },
|
||
dunning => sub { $::instance_conf->get_email_sender_dunning },
|
||
);
|
||
|
||
|
||
sub new {
|
||
my ($type, %params) = @_;
|
||
... | ... | |
|
||
return $error;
|
||
}
|
||
|
||
$self->_default_from; # set from for records if configured in client config
|
||
# Set defaults & headers
|
||
$self->{charset} = 'UTF-8';
|
||
$self->{content_type} ||= "text/plain";
|
||
... | ... | |
}
|
||
}
|
||
|
||
|
||
sub _default_from {
|
||
my ($self) = @_;
|
||
|
||
my $record_type = $self->{record_type} || $::form->{type} || $self->{driver}{form}{formname};
|
||
my $record_email = exists $type_to_email{$record_type} ? $type_to_email{$record_type}->() : undef;
|
||
$self->{from} = $record_email if $record_email;
|
||
}
|
||
|
||
1;
|
||
|
||
|
Auch abrufbar als: Unified diff
Belegweise generische Absender-Adressen setzen