Потоковая передача по тексту

Я пытаюсь передать текст и получить значения, которые могут быть назначены отправителю и получателю для отправки почты с помощью SMTPClient.

 |message sender recipient Stream peek|
  message:= 'To: [email protected], [email protected] 
             From: [email protected] , [email protected] 
             Subject: mail test

             Simple mail from me.'.

  Stream:= message readStream.
  peek:= Stream next.
  peek = $T ifTrue[Stream position 2.
                   peek:= Stream next.
                   peek = $: ifTrue["How can  get everything For To: and From:
                                      as Senders and recipients"]].

Мой другой вопрос

  SMTPClient 
  deliverMailFrom: sender
   to: recipient   
   text: message 
   usingServer: 'mail.mydomain'. 
  " ifTrue[Transcript show:('mail sent successfully')]"

Как я могу проверить это и убедиться, что почта была успешно отправлена


smalltalk pharo
person Irfan    schedule 05.02.2013    source источник
comment
Если SMTPClient не выдает ошибку, значит, он успешно доставил почту на ваш почтовый сервер. Вы не можете, как правило, сделать лучше, чем это, не получив явного ответа от владельца адреса электронной почты - ACK, так сказать.   -  person Frank Shearar    schedule 05.02.2013

Ответы (1)


arrow_upward
3
arrow_downward

Пожалуйста, разделите ваши вопросы, чтобы мы могли ответить правильно. Ответ на ваш первый вопрос:

| message sender recipient stream subject |
message:= 'To: [email protected], [email protected] 
           From: [email protected] , [email protected] 
           Subject: mail test

           Simple mail from me.'.

stream := message readStream.
[stream atEnd] whileFalse: [
    line := stream nextLine trimBoth.

    (line beginsWith: 'To:') ifTrue: [recipient := line allButFirst: 'To: ' size].
    (line beginsWith: 'From:') ifTrue: [sender := line allButFirst: 'From: ' size].
    (line beginsWith: 'Subject:') ifTrue: [subject := line allButFirst: 'Subject: ' size]].

Я думаю, вам следует взглянуть на книгу PharoByExample. Вы можете скачать его бесплатно на официальном сайте: http://pharobyexample.org/

person Damien Cassou    schedule 05.02.2013