/ Forums / Advansys Formativ / Formativ Creator / Delays of half a minute on sending a draft message

  • Creator
  • #3592


      my applet shall collect informations provided by users (selections and inputs in forms).
      Later the user creates a draft message by clicking a send button.

      The problem is now that sometimes the send event lasts between 20 and 30 seconds. This is much too long.

      Do you have any suggestion where the delay happens.

      I use up to 3 recipients.

      best regards & many thanks for help

      a part of code….

      Sub Senden_book
      ‘Absenden der Anforderung

      HRT = Chr(13) & Chr(10)
      Dim objDraft
      Dim objEmail
      Dim objRecipient
      Dim txt_mail
      Dim txt_Anforderer
      Dim txt_Berechtigungstyp
      Dim txt_Benutzer
      Dim txt_copy_from
      Dim txt_Buchberechtigung
      Dim txt_Zusatzinfo
      Dim txt_Berechtigungen

      txt_Anforderer = “Anforderer: ” & Anlage.cmb_requester_name.Text
      txt_Berechtigungstyp = “Berechtigungstyp: ” & Anlage.cmb_book_right_type.Text
      txt_Benutzer = “Für Benutzer: ” & Anlage.txt_book_right_user.Text
      txt_copy_from = “Kopie von Benutzer: ” & Anlage.txt_book_right_user_copy_from.Text
      txt_Zusatzinfo = “Zusatzinfo: ” & Anlage.txt_book_memo.Text

      txt_Berechtigungen = “BERECHTIGUNGEN für: ” & Anlage.txt_book_right_name.Text

      ‘ Create a draft email message
      Set objDraft = GroupWise.Account.MailBox.Messages.Add(4)

      Empfaenger1 = Anlage.txt_email_1.Text
      Empfaenger2 = Anlage.txt_email_2.Text
      Empfaenger3 = Anlage.txt_email_3.Text

      ‘Empfänger hinzufügen
      objRecipient = objDraft.Recipients.Add(Empfaenger1,,0)

      ‘Controlling Empfänger hinzufügen
      If send2Controlling=true then
      objRecipient = objDraft.Recipients.Add(Empfaenger3,,fgwto)
      end if

      ‘Weiteren Empfänger hinzufügen
      If Anlage.txt_email_2.Text <> “” then
      objRecipient = objDraft.Recipients.Add(Empfaenger2,,fgwto)
      end if

      if Anlage.tab_email_sender_include.State = cbChecked then
      ‘ Add a single recipient – ourself
      objRecipient = objDraft.Recipients.Add(objDraft.Sender.EmailAddress,,gwCC)
      end if

      objDraft.Subject = txt_Berechtigungstyp& ” VEGA-USER ” & txt_Benutzer & ” von ” &txt_Anforderer

      txt_mail = txt_Anforderer & HRT & txt_Benutzer & HRT & txt_copy_from & HRT & txt_Berechtigungen & HRT & txt_Zusatzinfo
      objDraft.BodyText.PlainText = txt_mail

      ‘ Send the email by calling the send method
      Set objEmail = objDraft.Send

      ‘ Display the MessageID
      vbanswer = msgbox(“Ihre Anforderung wurde versandt.” & HRT & “Weitere Berechtigungen anfordern ?”,vbyesno)
      if vbanswer = vbyes then
      call reset_fields
      ‘ Anlage.Senden.Modalresult = mrOK
      Anlage.Modalresult = mrOK
      ‘ Anlage.Modalresult = mrCancel
      end if

      End Sub

    • Author
    • #5550
      Support 3

        We haven’t had any report about the delay of sending messages using the Send method. Could you please answer the following questions:

        • Do you know when the delay occur (i.e first execution of the applet after restart the GroupWise)?
        • Can you reproduce the behaviour in another GroupWise account?
        • How you execute the applet (i.e applet integrations)?
        • Which version of GroupWise client are you running?

        May be you can use the utilities.DoEvents() before and after the Send method to force windows to process any pending messages in the windows application message queue.

        Hope this helps.

        Advansys Support

      Viewing 1 replies (of 1 total)
      • You must be logged in to reply to this topic.