<< Click to Display Table of Contents >> Navigation:  Customization > LWCRM Object Model > Object LWCRM.Email

Veel communicatie verloopt tegenwoordig via e-mailberichten. Het Object Model van Logicworks CRM bevat daarom diverse methodes om mail te versturen en een mailbox uit te lezen. Het Email object maakt het mogelijk om volledig automatisch e-mailberichten uit te lezen en vervolgacties te genereren. Hierbij kan worden gedacht aan het genereren van nieuwe Incidenten, Informatieaanvragen, etc...

 

 

SendQuickMail : Boolean

Verstuur een e-mailbericht naar een geadresseerde. De methode wordt intern onder andere gebruikt om een trace van een foutmelding naar de supportafdeling van Logicworks te verzenden. Deze methode kent enkele nadelen, maar is zeer geschikt om snel een reminder aan iemand te versturen.  Nadelen:

- Het bericht wordt niet gekoppeld aan de geadresseerde.  

- Het bericht mag alleen platte ASCII-tekst bevatten.

 

Syntax

blnMailSent = LWCRM.Email.SendQuickMail( strUserId, strRecipient, strSubject, strBody, [intEmailsystem])

 

Parameters

strUserId

De ID van de huidige gebruiker, welke kan worden bepaald middels LWCRM.User.UserId

 

strRecipient

Geef de naam en e-mailadres van de ontvanger op, gescheiden door een pipe-teken ('|').

 

strSubject

Onderwerp van het emailbericht

 

strBody

Platte ASCII-tekst met de body van het emailbericht

 

intEmailSystem

Hier kan worden gekozen hoe het e-mailbericht moet worden verzonden, via Microsoft Outlook / Exchange Server (=1) of via de SMTP Server (=0). Wordt geen emailsysteem doorgegeven, dan zal de mail via Microsoft Outlook/Exchange worden verzonden.

 

Voorbeeld

strSubject = "Logicworks CRM  - Error Report"

blnMailSent = LWCRM.Email.SendQuickMail(LWCRM.User.UserId, "CRM Support|support@logicworks.nl", strSubject, strBody)

 

 

SendHtmlTemplate : Boolean

Verstuur een e-mailbericht op basis van een bestaand e-mailsjabloon.

 

Syntax

blnMailSent = LWCRM.Email.SendHtmlTemplate( intObjectType, strObjectId, strTemplateId, strSenderId, intEmailSystem, [strRecipientId], [strAttachments], [blnOpenMailMessage], [ccRecipientIds], [bccRecipientIds] )

 

Parameters

intObjectType

Geef het type object door waaraan het verzonden e-mailbericht moet worden gekoppeld. Een factuur of betalingsherinnering moeten bijvoorbeeld worden gerelateerd aan het objecttype factuur (=84). Heeft een bericht alleen betrekking op een contactpersoon dan kan objecttype Contactpersoon (=1) worden gebruikt.

 

strObjectId

Het interne ID van het object item waarop het e-mailbericht betrekking heeft, bijv. de waarde van invoices.invoiceid of contacts.contactid.

 

strTemplateId

Het interne ID van het e-mailsjabloon dat moet worden gebruikt. Deze waarde vindt u in de kolom templates.templateid in de menuoptie Designers > Sjablonen.

 

strSenderId

De interne ID van de gebruiker welke de afzender is van het e-mailbericht. Deze waarde vindt u in de kolom users.userid in de menuoptie Beheer > Gebruikers. Uiteraard kan ook LWCRM.User.UserId worden gebruikt om de ID van de actieve gebruiker door te geven.

 

intEmailSystem

Hier kan worden gekozen hoe het e-mailbericht moet worden verzonden, via Microsoft Outlook / Exchange Server (=1) of via de SMTP Server (=0). Wordt geen emailsysteem doorgegeven, dan zal de mail via de SMTP Server worden verzonden.

 

strRecipientId

Hier kan eventueel een afwijkende ontvanger van het e-mailbericht worden opgegeven. Hierbij moet de interne ID van de betreffende contactpersoon (contacts.contactid) worden gebruikt.  

 

strAttachments

Wilt u naast de standaard bij het e-mailsjabloon vastgelegde bijlagen nog extra bijlagen meesturen, dan kunnen deze via deze parameter worden doorgegeven. Als meerdere extra bijlagen moeten worden meegestuurd, dan moeten de bestandsnamen worden gescheiden door een punt-komma (;).

 

blnOpenMailMessage

Het is mogelijk de gegenereerde mail niet direct te versturen, maar eerst te bekijken in het E-mail venster. Het mailbericht dient vervolgens handmatig verzonden te worden door de gebruiker.

 

ccRecipientIds

Hier kan eventueel de (puntkomma gescheiden) CC-ontvangers doorgegeven worden. Hierbij moet de interne ID van de betreffende contactpersonen (contacts.contactid) worden gebruikt.  

 

bccRecipientIds

Hier kan eventueel de (puntkomma gescheiden) BCC-ontvangers doorgegeven worden. Hierbij moet de interne ID van de betreffende contactpersonen (contacts.contactid) worden gebruikt.  

 

 

Voorbeeld

Const otInvoice = 84

Const lwcOutlook = 1

blnMailSent = LWCRM.Email.SendHtmlTemplate(otInvoice, "00AZ3", "0003U", LWCRM.User.UserId, lwcOutlook, "", "C:\Temp\F102910.pdf")

 

 

ValidEmailAddress : Boolean

Deze methode valideert het opgegeven e-mailadres. Let op dat deze methode lege e-mailadressen afkeurt!

 

Syntax

If Not LWCRM.Email.ValidEmailAddress( strEmailAddress ) Then

  Call MsgBox( "Dit is geen geldig emailadres!, vbExclamation, LWCRM.Application )

...

  

 

ConvertHtmlToText : String

Deze methode converteert een HTML tekst naar platte ASCII tekst zonder opmaak.

 

Syntax

strPlainText = LWCRM.Email.ConvertHtmlToText( strHtmlText  )

 

 

ConnectToMailserver : Boolean

Hiermee kunt u verbinding maken met een specifieke mailbox op de opgegeven mailserver.

 

Syntax

blnConnected = LWCRM.Email.ConnectToMailServer( strMailserver, strAccount, strPassword )

 

Parameters

strMailserver

De ID van de huidige gebruiker, welke kan worden bepaald middels LWCRM.User.UserId

 

strAccount

Geef de naam en e-mailadres van de ontvanger op, gescheiden door een pipe-teken ('|').

 

strPassword

Onderwerp van het emailbericht

 

Voorbeeld

blnConnected = LWCRM.Email.ConnectToMailserver( "mail.yourdomain.com", "jdoe", "secret" )

 

 

MessageCount : Long

Nadat de verbinding met een mailbox geslaagd, kan het aantal mailberichten in de mailbox worden opgevraagd.

 

Syntax

lngMessageCount = LWCRM.Email.MessageCount()

 

Voorbeeld

If LWCRM.Email.ConnectToMailserver( "mail.yourdomain.com", "jdoe", "secret" ) Then

  If LWCRM.Email.MessageCount > 0 Then ...

 

 

 

DownloadMessages : Boolean

Nadat de verbinding met een mailbox geslaagd, dan kunnen alle mailberichten worden gedownload. Hierbij worden de berichten opgehaald, maar niet verwijderd uit de mailbox. Nadat de berichten uit de mailbox zijn opgehaald met de DownloadMessages() kunnen deze per bericht worden bekeken.

 

Syntax

lngMessageCount = LWCRM.Email.MessageCount()

 

Voorbeeld

If LWCRM.Email.ConnectToMailserver( "mail.yourdomain.com", "jdoe", "secret" ) Then

  If LWCRM.Email.MessageCount > 0 Then

...

 

 

MessageFrom : String

Retourneert het e-mailadres van de afzender van een specifiek e-mailbericht.  

 

Syntax

strFrom = LWCRM.Email.MessageFrom( lngItem )

 

Parameters

lngItem

Nummer van een met DownloadMessages() gedownload e-mailbericht.

 

Voorbeeld

blnConnected = LWCRM.Email.ConnectToMailserver( "mail.yourdomain.com", "jdoe", "secret" )

If LWCRM.Email.ConnectToMailserver( "mail.yourdomain.com", "jdoe", "secret" ) Then

  For i = 1 To LWCRM.Email.MessageCount

    MsgBox( LWCRM.Email.MessageFrom(i) )

...

 

 

MessageSubject : String

Retourneert het onderwerp van een specifiek e-mailbericht.  

 

Syntax

strSubject = LWCRM.Email.MessageSubject( lngItem )

 

Parameters

lngItem

Nummer van een met DownloadMessages() gedownload e-mailbericht.

 

Voorbeeld

blnConnected = LWCRM.Email.ConnectToMailserver( "mail.yourdomain.com", "jdoe", "secret" )

If LWCRM.Email.ConnectToMailserver( "mail.yourdomain.com", "jdoe", "secret" ) Then

  For i = 1 To LWCRM.Email.MessageCount

    MsgBox( LWCRM.Email.MessageSubject(i) )

...

 

 

MessageDateTime : Date

Retourneert de datum/tijd van een specifiek e-mailbericht.  

 

Syntax

datDateTime = LWCRM.Email.MessageDateTime( lngItem )

 

Parameters

lngItem

Nummer van een met DownloadMessages() gedownload e-mailbericht.

 

Voorbeeld

blnConnected = LWCRM.Email.ConnectToMailserver( "mail.yourdomain.com", "jdoe", "secret" )

If LWCRM.Email.ConnectToMailserver( "mail.yourdomain.com", "jdoe", "secret" ) Then

  For i = 1 To LWCRM.Email.MessageCount

    MsgBox( LWCRM.Email.MessageDateTime(i) )

...

 

 

MessageBody  : String

Retourneert de Bodytekst van een specifiek e-mailbericht.  

 

Syntax

strBody = LWCRM.Email.MessageBody( lngItem )

 

Parameters

lngItem

Nummer van een met DownloadMessages() gedownload e-mailbericht.

 

Voorbeeld

blnConnected = LWCRM.Email.ConnectToMailserver( "mail.yourdomain.com", "jdoe", "secret" )

If LWCRM.Email.ConnectToMailserver( "mail.yourdomain.com", "jdoe", "secret" ) Then

  For i = 1 To LWCRM.Email.MessageCount

    MsgBox( LWCRM.Email.MessageText(i) )

...

 

 

MessageAttachmentCount : Long

Retourneert het aantal bijlagen van een specifiek e-mailbericht.  

 

Syntax

lngAttachments = LWCRM.Email.MessageAttachmentCount( lngItem )

 

Parameters

lngItem

Nummer van een met DownloadMessages() gedownload e-mailbericht.

 

Voorbeeld

blnConnected = LWCRM.Email.ConnectToMailserver( "mail.yourdomain.com", "jdoe", "secret" )

If LWCRM.Email.ConnectToMailserver( "mail.yourdomain.com", "jdoe", "secret" ) Then

  For i = 1 To LWCRM.Email.MessageCount

    MsgBox( LWCRM.Email.MessageAttachmentCount(i) )

...

 

 

MessageAttachments : String

Retourneert de namen van alle bijlagen, gescheiden door een ';', in een specifiek e-mailbericht.  

 

Syntax

strAttachmentNames = LWCRM.Email.MessageAttachments( lngItem )

 

Parameters

lngItem

Nummer van een met DownloadMessages() gedownload e-mailbericht.

 

Voorbeeld

blnConnected = LWCRM.Email.ConnectToMailserver( "mail.yourdomain.com", "jdoe", "secret" )

If LWCRM.Email.ConnectToMailserver( "mail.yourdomain.com", "jdoe", "secret" ) Then

  For i = 1 To LWCRM.Email.MessageCount

    If LWCRM.Email.MessageAttachmentCount(i) > 0 Then

      MsgBox( LWCRM.Email.MessageAttachments(i) )

...

 

 

 

SaveAttachments : Boolean

Slaat alle bijlagen van een specifiek e-mailbericht op in de opgegeven Map.  

 

Syntax

blnAttachmentsSaved = LWCRM.Email.SaveAttachments( lngItem, "c:\temp" )

 

Parameters

lngItem

Nummer van een met DownloadMessages() gedownload e-mailbericht.

 

Voorbeeld

blnConnected = LWCRM.Email.ConnectToMailserver( "mail.yourdomain.com", "jdoe", "secret" )

If LWCRM.Email.ConnectToMailserver( "mail.yourdomain.com", "jdoe", "secret" ) Then

  For i = 1 To LWCRM.Email.MessageCount

    If LWCRM.Email.MessageAttachmentCount(i) > 0 Then

      If LWCRM.Email.SaveAttachments(i, "c:\temp") Then

...

 

 

DeleteMessage : Boolean

Verwijdert een specifiek e-mailbericht uit de mailbox op de mailserver.

 

Syntax

blnRemoved = LWCRM.Email.DeleteMessage( lngItem  )

 

Parameters

lngItem

Nummer van een met DownloadMessages() gedownload e-mailbericht.

 

Voorbeeld

blnConnected = LWCRM.Email.ConnectToMailserver( "mail.yourdomain.com", "jdoe", "secret" )

If LWCRM.Email.ConnectToMailserver( "mail.yourdomain.com", "jdoe", "secret" ) Then

  For i = 1 To LWCRM.Email.MessageCount 

     Call LWCRM.Email.DeleteMessage(i)

...

 

 

DisconnectFromMailServer : Boolean

Nadat alle berichten van de mailbox zijn verwerkt kan de verbinding met de mailserver met deze methode worden verbroken.

 

Syntax

blnDisconnected = LWCRM.Email.DisconnectFromMailserver()

 

Voorbeeld

blnConnected = LWCRM.Email.ConnectToMailserver( "mail.yourdomain.com", "jdoe", "secret" )

...

Call LWCRM.Email.DisconnectFromMailServer()