gegevens mail naar excel

[twart]

In deze treat: http://www.helpmij.nl/forum/showthread.php/856529-Gemailde-gegevens-naar-Excel?p=5501309#post5501309
is een voorbeeld gegeven van een macro waarmee je gegevens uit een mail in excel kunt verwerken. ik vind het ook een mooi systeem maar vraag mij af hoe je het macro zo kunt aanpassen dat het ook op andere berichten zoals bijvoorbeeld het onderstaande.

Kan iemand mij hier een beetje in wegwijs maken?

Voorbeeld bericht

Van: dummy van dummy <dummy@dummy.nl>

Telefoonnummer: 06-00000000

Onderwerp: dummy onderwerp

Bericht inhoud:
graag wil ik meer info over dummy.
met vriendelijke groet,
dummy

 

[edmoor]

Staat die tekst exact zo in de body van de mail?

 

[twart]

Beste edmoor,

Ja het is een letterlijke kopie, heb deze alleen geanonimiseerd.

Vriendelijke groet,

Twart

 

[edmoor]

Probeer deze maar eens:
Bekijk bijlage twart.xlsm

Open het document, kopieer de tekst die je als voorbeeld gaf en klik op de knop Plaats.

Ook hier geldt wat ik in de andere post schreef:
Deze vereist wel een referentie naar de Microsoft Forms 2.0 Object Library.
Dat kan je in VBA eenmalig voor dit document aan zetten.

Mocht je er tegenaan lopen en niet weten wat te doen dan laat het hier maar even weten.

 

[twart]

Je bent geweldig! Hij functioneert helemaal naar behoren.

Nog wel een aanvullende vraag.
Mocht ik in de toekomst meer velden willen toevoegen kan ik dan gewoon een nieuwe regel toevoegen zoals:

Case "nieuw veld":       Cells(LastRow, 5) = Trim(MyLabel(1))

Select Case Trim(LCase(MyLabel(0)))
                Case "van":             Cells(LastRow, 1) = Trim(MyLabel(1))
                Case "telefoonnummer":  Cells(LastRow, 2) = Trim(MyLabel(1))
                Case "onderwerp":       Cells(LastRow, 3) = Trim(MyLabel(1))
                Case "bericht inhoud"
                    While i < UBound(MyString)
                        i = i + 1
                        Cells(LastRow, 4) = Cells(LastRow, 4) & MyString(i) & vbCrLf
                    Wend

Echt super bedankt.

 

[edmoor]

Dat zal niet zomaar werken. Dat soort dingen luistert erg nauw. Zoals je kunt zien worden de gegevens voor Cells(LastRow, 4) ook totaal anders behandelt dan de cellen ervoor en komen deze uit een andere variabele.

Als het nieuwe veld op deze manier VOOR de Bericht inhoud komt:
Nieuw veld: Nieuwe dummy

Kan je wel dit doen: (De wijzigingen zie je in het rood weergegeven)

    For i = 1 To [COLOR="#FF0000"]5[/COLOR]
        Call Uitlijning(LastRow, i)
    Next i
    
    MyString = Split(Klembord(), vbCrLf)
    For i = 0 To UBound(MyString)
        If MyString(i) <> "" Then
            MyLabel = Split(MyString(i), ":")
            Select Case Trim(LCase(MyLabel(0)))
                Case "van":             Cells(LastRow, 1) = Trim(MyLabel(1))
                Case "telefoonnummer":  Cells(LastRow, 2) = Trim(MyLabel(1))
                Case "onderwerp":       Cells(LastRow, 3) = Trim(MyLabel(1))
               [COLOR="#FF0000"] Case "nieuw veld":      Cells(LastRow, 4) = Trim(MyLabel(1))[/COLOR]
                Case "bericht inhoud"
                    While i < UBound(MyString)
                        i = i + 1
                        Cells(LastRow, [COLOR="#FF0000"]5[/COLOR]) = Cells(LastRow, [COLOR="#FF0000"]5[/COLOR]) & MyString(i) & vbCrLf
                    Wend
            End Select
        End If
    Next i

Uiteraard moet je dan de knop ook verplaatsen.

 

[twart]

Wederom hartelijk dank!:thumb: