massa mailing 'ontdubbelen'

[sjongenelen]

Ik zoek iemand (misschien wel van got) die mij kan vertellen hoe ik het beste een massa mailing aanpak. Misschien is het wel iets wat ik moet programmeren?

Situatie is zo: Bedrijf X wil een nieuwsbrief versturen. Deze is gemaakt in Groupmail .

Dit gaat goed, gepersonaliseerd met variabelen etc. hardstikke mooi.

De mail van circa 60.000 stuks per keer gaat maandelijks de deur uit

offtopic:
(leg dat maar eens uit aan KPN - 3x blacklisted )

Dit gaat nu ook goed.
De e-mail adressen worden uit een sql tabel gehaald.

Probleem is de mensen die zich wel aangemeld hebben op de nieuwsbrief, maar waarvan de mailbox niet meer bestaat of vol is, of een andere reden dat de mail niet bezorgd kon worden.

De "return to sender mail" wordt nu in een aparte Groupwise box opgeslagen. Het gaat hier om +/- 10.000 adressen (!) die niet goed zijn.

probleem is dat de emailadressen niet verwijderd kunnen worden uit de sql tabel, deze zitten namelijk weer gekoppeld aan eerdere bestellingen ed.

Ik zelf zat te denken aan 2 tabellen;

- alles (alle e-mail adressen)
- exclusions (een lijst met niet meer bestaande adressen)

De exclusion list moet (dmv een query ofzo) tegen 'alles' gehouden worden.

tot nu toe nog redelijk te doen met vb script en access.

maar nu:

De "undelivered mail returned to sender" (-de échte dode dus) adressen moeten úít de groupwise mailbox gehaald worden en in de sql tabel geplaatst worden.

Hoe kan ik dit het beste aanpakken?

EDIT: ow ja, het is geen spam. het is een nieuwsbrief

[axis]

TheNymf schreef op maandag 22 januari 2007 @ 14:26:
probleem is dat de emailadressen niet verwijderd kunnen worden uit de sql tabel, deze zitten namelijk weer gekoppeld aan eerdere bestellingen ed.

Wat let je om een extra kolommetje aan die tabel toe te voegen?

Wat ik doe, is alle bounces handmatig in een mappie (laten) plaatsen, en daar met een tooltje alle adressen uit trekken. Deze pompen we weer in aparte tabellen (voor elke mailing 1 bounce tabel), en als iemand 3x bounced wordt ie uitgeschreven.

Alle profielen staan in een database, en 'uitschrijven' houdt dus in de status van iemand veranderen naar 'niet sturen' ofzo. Bounces moet je echt goed bijhouden, want voor je het weet sta je op diverse blacklists, terwijl je gewoon zo netjes mogelijk je zaken probeert te doen.

En geblacklist door KPN.. Mail je vanaf je DSL lijntje dan ofzo? Wordt het dan niet eens tijd om een dedicated servertje te huren of een server bij een coloboer neer te zetten van waaruit je kunt gaan mailen? Lijkt me efficienter..

*Axis mailt ca. 300.000 mensen per week*

De beste oplossing zou een tool zoals Lyris Listmanager, dat is de koning onder de mailinglistmanagers, maar voor ons totaal onbetaalbaar met deze hoeveelheden adressen.

[ Voor 14% gewijzigd door axis op 22-01-2007 14:35 ]

[sjongenelen]

axis schreef op maandag 22 januari 2007 @ 14:34:
En geblacklist door KPN.. Mail je vanaf je DSL lijntje dan ofzo? Wordt het dan niet eens tijd om een dedicated servertje te huren of een server bij een coloboer neer te zetten van waaruit je kunt gaan mailen? Lijkt me efficienter..

ik mail niet een medewerker van marketing doet dit via onze groupwise mailserver.

maar bedankt voor je reactie, dat bouncen is ook wel een leuk idee

maarrr, wat is het tooltje waarmee jij de adressen uit je 'mappies' leest?
en wat zijn dat voor mappies? ntfs? mailbox?

[ Voor 60% gewijzigd door sjongenelen op 22-01-2007 14:43 ]

[axis]

TheNymf schreef op maandag 22 januari 2007 @ 14:36:
[...]
ik mail niet een medewerker van marketing doet dit via onze groupwise mailserver.

maar bedankt voor je reactie, dat bouncen is ook wel een leuk idee

maarrr, wat is het tooltje waarmee jij de adressen uit je 'mappies' leest?
en wat zijn dat voor mappies? ntfs? mailbox?

Ik exporteer in Outlook alle mails in een folder naar één hele grote textfile, en daar haal ik met emailextractor alle adresjes uit.. Die adressen unsubscribe ik dus.

Nou ja, ik unsubscribe iedereen die 3x bounced, om te voorkomen dat ik softbounces meeneem.. (mailbox vol, tijdelijk probleem, etc)

[JoetjeF]

Je kan met de GroupWise Object API redelijk makkelijk gegevens uit GroupWise halen. Ik gebruik zelf Delphi, maar de voorbeelden zijn ook beschikbaar voor VB, dus daarin moet het ook mogenljik zijn.

[sjongenelen]

axis schreef op maandag 22 januari 2007 @ 15:35:
[...]

Ik exporteer in Outlook alle mails in een folder naar één hele grote textfile, en daar haal ik met emailextractor alle adresjes uit.. Die adressen unsubscribe ik dus.

Nou ja, ik unsubscribe iedereen die 3x bounced, om te voorkomen dat ik softbounces meeneem.. (mailbox vol, tijdelijk probleem, etc)

Zoiets doet mijn marketing manager nu ook, maar ik (en hij vooral) zou het graag geautomatiseerd zien..

dus bounce mailtjes in een box, een sweep haalt de adressen op en plaatst deze in een tabel..

EDIT: en de manager haalt de goede adressen er dan uit met een view/function/query

[ Voor 5% gewijzigd door sjongenelen op 23-01-2007 10:46 ]

[F_J_K]

Die DB tabel is inderdaad op deze manier niet goed opgezet. Voeg een "mail me" veld en een "is dood" veld toe, of maak een nieuwe mail tabel en zet hier alleen verwijzingen naar specifieke ID's van mensen die willen worden gemaild met verwijzing naar de hoofdtabel. Al wil je in dat tweede geval nog steeds ook een tabel / veld toevoegen over het feit dat een mailadres dood is. Immers heb je naast bounces ook erg te maken met de spam wetgevingen en dus opt-out mogelijkheden (ondanks dat je natuurlijk mensen alleen mailt als ze eeuhm in hebben geopt).

Het zit erg op de grens, maar omdat de hoofdvraag het maildubbeling is: CSA -> OFF

[sjongenelen]

ik wil eerst een goed programma wat de info uit mn groupwise mailbox haalt. Ik spit ff die API dingen door, klinkt veelbelovend.

misschien iemand al gedaan?


edit:

ik krijg al mijn berichten als volgt terug van mijn 'postmaster'

kop: Returned Mail "%naam%"

User<[e-mail]> - (550 Requested action not taken: mailbox unavailable)

hoe kan ik [e-mail] hieruit filteren?


EDIT2:

ik wil dus eh, als ik het goed zeg:

een API (VB) commando hebben die inlogt op een mailbox, navigeert naar een map en dan de e-mails daaruit opent en in de body het stukje emailadres kopieert naar een bestand. (csv oid)

stukje code dat ik al heb:

code:

Public ogwApp As GroupwareTypeLibrary.Application
Public ogwRootAcct As GroupwareTypeLibrary.Account
Private Sub CommandButton1_Click()

Dim ogwFolder As Folder, _
    ogwFoundFolder As Folder, _
    i As Long, _
    sCommandOptions As String, _
    sMailPassword As String, _
    sLoginName As String, _
    sFolderToSearch As String, _
    sFileType As String, _
    sSavePath As String, _
    ogwMail As Mail

'Change required variables here!
Dim ZoekEmail As String
Dim teller As Integer
Dim MyPos As Integer
Dim Pos_Email As Integer
Dim Lstring, Rstring, TempString As String
Dim MyLeftAddres, MyRightAddres As String
Dim Done As Boolean
Dim NietGeldig As Boolean
Dim Rijteller As Integer
Dim Filename As String
Dim Tempvar As String








sLoginName = "marketing"
sFolderToSearch = Me.Folders.Value

sSavePath = "C:\Temp" 'do not add trailing \
sFileType = "doc"

'Set application object reference if needed
If ogwApp Is Nothing Then 'Need to set object reference
    DoEvents
    Set ogwApp = CreateObject("NovellGroupWareSession")
    DoEvents
End If

'Create connection/login to email account
If ogwRootAcct Is Nothing Then 'Need to log in
    'Login to root account
    If Len(sMailPassword) Then 'Password was passed, so use it
        sCommandOptions = "/pwd=" & sMailPassword
    Else 'Password was not passed
        sCommandOptions = vbNullString
    End If

    Set ogwRootAcct = ogwApp.Login(sLoginName, sCommandOptions, _
    , egwPromptIfNeeded)
    DoEvents
End If


Rijteller = 1
For Each ogwMail In ogwRootAcct.AllFolders.ItemByName(sFolderToSearch).Messages
    With ogwMail
    
    If InStr(.Subject, "Returned Mail") > 0 Then
    

     MyPos = InStr(1, .BodyText, "@", 1)
        NietGeldig = False
           
             If MyPos <> 0 Then
  'er is een email adres in het memo veld gevonden!!!
  
  
  
  Pos_Email = MyPos
  
  Lstring = Left(.BodyText, MyPos)
  teller = 0
  Done = False
  While Not Done
    teller = teller + 1
    If teller > 250 Then
      Done = True
      MyLeftAddres = "GEEN GELDIGE LEFT TELLER"
    End If
    MyLeftAddres = Right(Lstring, teller)
    If InStr(1, MyLeftAddres, " ", vbTextCompare) Then
      Done = True
      MyLeftAddres = Right(Lstring, teller - 1)
    End If
    If InStr(1, MyLeftAddres, "<", vbTextCompare) Then
      Done = True
      MyLeftAddres = Right(Lstring, teller - 1)
    End If
    If InStr(1, MyLeftAddres, "^l", vbTextCompare) Then
      Done = True
      MyLeftAddres = Right(Lstring, teller - 1)
    End If
    If InStr(1, MyLeftAddres, Chr(13), vbBinaryCompare) Then
      Done = True
      MyLeftAddres = Right(Lstring, teller - 1)
    End If
  Wend
  
  Rstring = Right(.BodyText, (Len(.BodyText) - Len(Lstring)))
  
  teller = 0
  Done = False
  While Not Done
    teller = teller + 1
    If teller > 100 Then
      Done = True
      MyRightAddres = "GEEN GELDIGE RIGHT TELLER"
    End If
    MyRightAddres = Left(Rstring, teller)
    If InStr(1, MyRightAddres, " ", vbTextCompare) Then
      Done = True
      MyRightAddres = Left(Rstring, teller - 1)
    End If
    If InStr(1, MyRightAddres, ">", vbTextCompare) Then
      Done = True
      MyRightAddres = Left(Rstring, teller - 1)
    End If
    If InStr(1, MyRightAddres, "^l", vbTextCompare) Then
      Done = True
      MyRightAddres = Left(Rstring, teller - 1)
    End If
    If InStr(1, MyRightAddres, Chr(13), vbBinaryCompare) Then
      Done = True
      MyRightAddres = Left(Rstring, teller - 1)
    End If
  
  Wend
  
  ZoekEmail = MyLeftAddres & MyRightAddres
  
  Sheets(1).Cells(Rijteller, 1).Value = ZoekEmail
  Rijteller = Rijteller + 1

  Else
    ZoekEmail = "NIET GEVONDEN"
    
  End If
          
           
Else
' niks doen
   
    End If

    End With
Next ogwMail

'Release all objects before closing
Set ogwRootAcct = Nothing
Set ogwApp = Nothing
DoEvents

UPDATE:

Het is gelukt! met een form in Excel heb ik nu een dropdown menu, deze zoekt de folders in de groupwise mailboxen.

daarna scant hij alle e-mails en geeft hij mij de emailadressen (dmv een count links en rechts) en plaatst deze mooi (vanuit een loop) in het eerste werkblad van het exceldocument!

[ Voor 248% gewijzigd door sjongenelen op 23-01-2007 16:40 ]