[VB6] Referentie bij versturen e-mail via outlook

[dip]

Bij het verzenden van een email bericht via outlook wordt een kopie opgeslagen in PionUs,
een eigen databasesysteem waarin klantgegevens e.d. staan.

De inhoud van het mailtje is bekend en word opgeslagen,
De bedoeling is dat wanneer het mailtje daadwerkelijk verstuurd is, de extra gegevens zoals tijdstip waarop het mailtje daadwerkelijk VERZONDEN is bekend zijn.

Echter wanneer de mail verstuurd wordt is de referentie naar het mailtje weg.

code:

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim Store As Boolean
    Dim prop As UserProperty
    
    For Each prop In Item.UserProperties
        If prop.Name = "Store" Then
            Store = prop.Value
        End If
    Next
    
    If Store Then
        SendMailToPionUs Item
    End If
End Sub

De methode SendMailToPionUs valideert nog het een en het ander
De volgende code stuurt het mailtje.

code:

Sub InspectorMailAndSendToPionUs()
    Dim lvMail As MailItem
    Dim lvSentMessageFolder As MAPIFolder

    
    Set lvMail = ActiveInspector.CurrentItem
    If Not (lvMail Is Nothing) Then
        lvMail.UserProperties.Add("Store", olNumber, False) = 1
        If Not (lvMail.Sent) Then
            If lvMail.Recipients.Count = 0 Then
                MsgBox "Geef een adres op waar het mailtje naartoe moet."
                Exit Sub
            End If
            ' STUREN MAIL
            lvMail.send
            
        End If
    End If
End Sub

Wanneer lvMail verstuurd word, valt de referentie weg.
Heeft iemand enig hoe ik ervoor kan zorgen dat ik mijn referentie terug krijg en gegevens op kan halen??

Gegroet, Ron

[ Voor 4% gewijzigd door dip op 15-11-2004 13:02 ]

[dip]

Modbreak:

Kicken binnen 24 is niet toegestaan Zie de faq

[ Voor 98% gewijzigd door gorgi_19 op 16-11-2004 08:51 ]

[PaulZ]

Geeft die 'lvMail.send' geen waarde (MailID ofzoiets) terug die je kan gebruiken?

[dip]

Ik geloof van niet, en de documentatie zegt er niets over

[RobIII]

code:

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)

Gezien het feit dat je hier nog kunt Cancel-len lijkt het me stug dat je mail al weg is in dit event...

Dan zie ik de volgende "optimalisatie":

code:

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim prop As UserProperty
    For Each prop In Item.UserProperties
        If prop.Name = "Store" Then SendMailToPionUs Item
    Next
End Sub

...en dan zou Item (gezien je eigen code) dus wel degelijk nog een referenctie moeten hebben, want het gaat ook het "PionUs" systeem in...Toch?

edit:

Ow, excuus, ik zie nu pas waar je probleem zit... na je .send natuurlijk

Enniewee, dat de referentie na .send weg is vind ik niet zo gek. Maar je kunt toch op het moment dat je het record in PionUs aanmaakt een referentie naar dat nieuwe record vasthouden (of opvragen) en dat later bijwerken met de verzonden datum? Of begrijp ik je nu weer verkeerd?

[ Voor 89% gewijzigd door RobIII op 16-11-2004 10:44 ]

[dip]

RobIII schreef op dinsdag 16 november 2004 @ 10:39:
Enniewee, dat de referentie na .send weg is vind ik niet zo gek. Maar je kunt toch op het moment dat je het record in PionUs aanmaakt een referentie naar dat nieuwe record vasthouden (of opvragen) en dat later bijwerken met de verzonden datum? Of begrijp ik je nu weer verkeerd?

Hmja zou kunnen, het is echter wel de bedoeling dat de gehele referentie te achterhalen is, want er moet meer mee gedaan worden.

Is het niet op een of andere mannier mogelijk om de referentie te kopieren ? zodat deze na het sturen nog te zien is?

[ Voor 9% gewijzigd door dip op 16-11-2004 12:15 ]

[dip]

weet echt niemand hier een oplossing voor?

[onkl]

Drie oplossingsrichtingen:
1: Voeg een Userproperty (PionID of zo) toe waarmee je de mail na je .send weer kan opsnorren in sent items, outbox, weet ik waar.
2: ik crossquote Woudloper uit [rml][ Word/VBA] Knop om document per mail te verzenden[/rml]

Woudloper schreef op woensdag 17 november 2004 @ 09:04:
Aangaande de nadelen kan je eens zoeken naar 'Outlook Redemption'. Dit is een COM Library die om de beveiligingen van Outlook heen werkt. Kijk maar eens op de site van de maker. Wellicht heb je daar nog wat aan?

Deze library kan vaak "de dingen die in outlook net niet lukken", dus ermee spelen is aan te raden, misschien dat Redemption net iets anders omgaat met je referentie.
3: Kijk eens of userproperties doorkomen op je Exchange server, misschien mail eerst saven op je database en dan pas versturen. Op server check op Userproperty "PionID", die eruitslopen voor verzenden en in Database wat vlaggen opzetten en een "verzonden" tijdstip toevoegen.

In het algemeen is het, bezien het type probleem een idee om meer server side te denken lijkt me zo.

[ Voor 4% gewijzigd door onkl op 17-11-2004 17:00 ]