My code:
Code: Select all
# create new ticket
$NewTicketID = $TicketObject->TicketCreate(
Title => 'Uitleen door ' . $naam . " ($account)",
Queue => 'Brugge::Uitleen',
Lock => 'unlock',
Priority => '3 normal',
State => 'new',
CustomerID => 1,
OwnerID => 1,
UserID => 1,
);
# change client
$Success = $TicketObject->TicketCustomerSet(
No => $account,
User => $account,
TicketID => $NewTicketID,
UserID => 1,
);
$NewArticleBackendObject = Kernel::OM->Get('Kernel::System::Ticket::Article')->BackendForChannel(ChannelName => 'Email');
$subject = 'Uitleen door ' . $naam . " ($account)";
$NewArticleID = $NewArticleBackendObject->ArticleCreate(
TicketID => $NewTicketID,
SenderType => 'customer',
IsVisibleForCustomer => 1,
UserID => 1,
From => $naam . " <" . $email .">",
To => 'Servicedesk <servicedesk@mydomain>',
Subject => $subject,
Body => $body2,
Charset => 'iso-8859-15',
MimeType => 'text/plain',
HistoryType => 'NewTicket',
HistoryComment => 'Aangemaakt via uitleenformulier',
NoAgentNotify => 0,
);
Philip