ricje20

Heya, Dit gaat gek klinken.. maar echt waar.. xD Ik heb voor de grap eens hetgene gedaan wat echt nooit werkt, ik ben naar apparaatbeheer gegaan, en heb automatisch bijwerken van me videokaart gedaan.. en het werkte! O_o blijkbaar was de nieuwe videokaart driver die ik gedownload had verouderd.. (dankjewel AMD website...... -.-) het is dus opgelost! EDIT: HET WERKTE NIET! Dit is nog niet opgelost! sorry ik dacht dat het geluid uit me TV kwam maar het kwam toch uit me laptop (ze staan dicht bij elkaar) dus graag nog een oplossing of wat hulp

Heya! heb Adwcleaner gedraait maar er was niks meer te vinden. ik heb hiervoor al MalwareBytes gedraait en die heeft me computer al leeggemaakt (op die search protect na dan..) Super bedankt voor de goeie hulp! greetz, (ik zie nergens meer een "sluit onderwerp" staan, is dat weggehaald?)

Heya! ik zie het mysterieuze search protect niet meer staan hier het log bestandje Greetz zoek-results.log

Heya, thanks voor de reactie. EDIT van vorige post: De reclame / adds die opende was van een andere malware/virus. die is ondertussen verwijderd. maar het mysterieuze search protect is er nog. succes met het logje Hijack Log.txt

Extra info: ik heb me oude laptop erbij gepakt om te kijken of het daar allemaal wel mee werkte. en met me oude laptop deed het geluid het gewoon vanaf me TV.. dus het ligt aan de laptop, niet aan de TV of Kabel

Heya, Ik zit met een probleem... ik heb al duizenden virussen verwijdert in mijn leven... maar deze krijg ik niet weg. elke google poging om het te verwijderen geeft een oplossing die niet mogelijk is. er staat een programma in mij computer genaamd Search Protect.. Deze maakt mijn pc ietsje trager, veranderd mijn home page in google chrome, en blijft de hele tijd adds (reclame) openen.. Elke handleiding op google om Search Protect te verwijderen begint met, ga naar configuratiescherm > programma verwijderen > verwijder search protect... maar bij mij staat heel search protect niet in mijn configuratiescherm bij programma's/onderdelen verwijderen... heb ook al een paar anti malware programma's laten draaien.. tevergeefs.. help? Groetz, Ricje20

Gedaan, alleen heeft het niet gewerkt. Moet ik ook de videokaart driver compleet verwijderen en het dan nog is proberen? hij gaf bij de installatie ook een fout.. printscreen bijgevoegd.

ik moet er wel even bij zeggen: de eerste keer dat ik de videokaart driver update deed was ik vergeten me hdmi kabel eruit te halen, hierdoor kreeg ik een blue screen. hierna heb ik hem echter opnieuw gedaan (zonder hdmi erin) en deed hij het wel. maar dit is hoogstwaarschijnlijk niet de oorzaak van het probleem. ik voeg wel even voor de zekerheid een print screen van me video en geluid drivers.

Ik heb een AMD Radeon HD 7500/7600 series en ja hij gaat de videokaart in

Heya, Op mijn laptop heb ik via HDMI een TV aangesloten. voor een jaar lang deed hij t prima, maar nu heb ik de nieuwe driver voor me videokaart geïnstalleerd.. en nu doet me geluid het ineens niet meer. (ik weet videokaart heeft niets met geluid te maken.. maar echt waar..) Als ik naar me geluid ga, staan alleen de laptop speakers als optie. en de HDMI device staat er helemaal niet meer bij.. any help? De printscreen is gemaakt terwijl de HDMI cable met me TV eraan in me laptop aangesloten zit.. ik heb wel Beeld, maar geen geluid op me TV. het geluid komt uit me laptop. greetz, ricje20

hm het heeft ff geduurt maar ben er ondertussen achter gekomen (C#) if [font=Consolas][size=2][font=Consolas][size=2](info.Extension == [/size][/font][/size][/font][font=Consolas][size=2][color=#a31515][font=Consolas][size=2][color=#a31515][font=Consolas][size=2][color=#a31515]".xls" || info.Extension == ".xlsx"[/color][/size][/font][/color][/size][/font][/color][/size][/font][font=Consolas][size=2][font=Consolas][size=2]) {[/size][/font][/size][/font][font=Consolas][size=2][color=#2b91af][font=Consolas][size=2][color=#2b91af][font=Consolas][size=2][color=#2b91af] clsExcelBestand[/color][/size][/font][/color][/size][/font][/color][/size][/font][font=Consolas][size=2][font=Consolas][size=2] objbestand = [/size][/font][/size][/font][font=Consolas][size=2][color=#0000ff][font=Consolas][size=2][color=#0000ff][font=Consolas][size=2][color=#0000ff]new[/color][/size][/font][/color][/size][/font][/color][/size][/font][font=Consolas][size=2][color=#2b91af][font=Consolas][size=2][color=#2b91af][font=Consolas][size=2][color=#2b91af]clsExcelBestand[/color][/size][/font][/color][/size][/font][/color][/size][/font][font=Consolas][size=2][font=Consolas][size=2]();[/size][/font][/size][/font] [font=Consolas][size=2][font=Consolas][size=2] objbestand.bestandsnaamString = file2; objbestand.OpenBestand(); } [/size][/font][/size][/font] Ricje20

Hey daar ben ik weer, is het mogelijk om in bijvoorbeeld zo'n IF statement te zeggen van IF info.Extentions == ".xls" OR ".xlsx" of als dat niet kan is het mogeijk om het met special characters op te lossen? zoals ".xls*" of ".xls%", ik wil dan niet de S weghebben, dus niet ".xl%" of zal ik echt 2 if statements moeten aanmaken (dit wil ik graag vermijden aangezien ik aan het OO programeren ben / zo weinig mogelijk code wil gebruiken) if [font=Consolas][size=2][font=Consolas][size=2](info.Extension == [/size][/font][/size][/font][font=Consolas][size=2][color=#a31515][font=Consolas][size=2][color=#a31515][font=Consolas][size=2][color=#a31515]".xls"[/color][/size][/font][/color][/size][/font][/color][/size][/font][font=Consolas][size=2][font=Consolas][size=2]) {[/size][/font][/size][/font][font=Consolas][size=2][color=#2b91af][font=Consolas][size=2][color=#2b91af][font=Consolas][size=2][color=#2b91af] clsExcelBestand[/color][/size][/font][/color][/size][/font][/color][/size][/font][font=Consolas][size=2][font=Consolas][size=2] objbestand = [/size][/font][/size][/font][font=Consolas][size=2][color=#0000ff][font=Consolas][size=2][color=#0000ff][font=Consolas][size=2][color=#0000ff]new[/color][/size][/font][/color][/size][/font][/color][/size][/font][font=Consolas][size=2][color=#2b91af][font=Consolas][size=2][color=#2b91af][font=Consolas][size=2][color=#2b91af]clsExcelBestand[/color][/size][/font][/color][/size][/font][/color][/size][/font][font=Consolas][size=2][font=Consolas][size=2]();[/size][/font][/size][/font] [font=Consolas][size=2][font=Consolas][size=2] objbestand.bestandsnaamString = file2; objbestand.OpenBestand(); } [/size][/font][/size][/font] bedankt! ricje20

Hey, listbox1.Refresh() is een "ingebouwd" ding denk dat ik dan inderdaad maar probeer om een unstructie te schrijven om de listbox leeg te maken en te vullen na verwijderen van een item. Bedankt voor de hulp

Hey, bedankt voor de snelle reactie dat heb ik geprobeerd maar listbox1.Refresh(); werkt om een of andere reden niet en heb een beetje rondgezocht maar ik kan er niets over vinden.

Hey, Ben bezig in C# en loop tegen een probleempje aan. [font=Consolas][size=2][font=Consolas][size=2] [/size][/font][/size][/font][font=Consolas][size=2][color=#0000ff][font=Consolas][size=2][color=#0000ff][font=Consolas][size=2][color=#0000ff]string[/color][/size][/font][/color][/size][/font][/color][/size][/font][font=Consolas][size=2][font=Consolas][size=2][] files2 = [/size][/font][/size][/font][font=Consolas][size=2][color=#2b91af][font=Consolas][size=2][color=#2b91af][font=Consolas][size=2][color=#2b91af]Directory[/color][/size][/font][/color][/size][/font][/color][/size][/font][font=Consolas][size=2][font=Consolas][size=2].GetFiles(textBox1.Text + [/size][/font][/size][/font][font=Consolas][size=2][color=#a31515][font=Consolas][size=2][color=#a31515][font=Consolas][size=2][color=#a31515]@":\"[/color][/size][/font][/color][/size][/font][/color][/size][/font][font=Consolas][size=2][font=Consolas][size=2] + textBox2.Text);[/size][/font][/size][/font] [font=Consolas][size=2][font=Consolas][size=2] [/size][/font][/size][/font][font=Consolas][size=2][color=#008000][font=Consolas][size=2][color=#008000][font=Consolas][size=2][color=#008000]// Gives info about selected file in listbox1[/color][/size][/font][/color][/size][/font][/color][/size][/font] [font=Consolas][size=2][font=Consolas][size=2] [/size][/font][/size][/font][font=Consolas][size=2][color=#0000ff][font=Consolas][size=2][color=#0000ff][font=Consolas][size=2][color=#0000ff]string[/color][/size][/font][/color][/size][/font][/color][/size][/font][font=Consolas][size=2][font=Consolas][size=2] file2 = files2 [listBox1.SelectedIndex]; [/size][/font][/size][/font][font=Consolas][size=2][font=Consolas][size=2] [/size][/font][/size][/font][font=Consolas][size=2][color=#2b91af][font=Consolas][size=2][color=#2b91af][font=Consolas][size=2][color=#2b91af]FileInfo[/color][/size][/font][/color][/size][/font][/color][/size][/font][font=Consolas][size=2][font=Consolas][size=2] info = [/size][/font][/size][/font][font=Consolas][size=2][color=#0000ff][font=Consolas][size=2][color=#0000ff][font=Consolas][size=2][color=#0000ff]new[/color][/size][/font][/color][/size][/font][/color][/size][/font][font=Consolas][size=2][color=#2b91af][font=Consolas][size=2][color=#2b91af][font=Consolas][size=2][color=#2b91af]FileInfo[/color][/size][/font][/color][/size][/font][/color][/size][/font][font=Consolas][size=2][font=Consolas][size=2](file2);[/size][/font][/size][/font][font=Consolas][size=2][font=Consolas][size=2] [/size][/font][/size][/font][font=Consolas][size=2][color=#0000ff][font=Consolas][size=2][color=#0000ff][font=Consolas][size=2][color=#0000ff]string[/color][/size][/font][/color][/size][/font][/color][/size][/font][font=Consolas][size=2][font=Consolas][size=2] name = info.Name;[/size][/font][/size][/font] [font=Consolas][size=2][font=Consolas][size=2] [/size][/font][/size][/font][font=Consolas][size=2][color=#2b91af][font=Consolas][size=2][color=#2b91af][font=Consolas][size=2][color=#2b91af]clsBestand[/color][/size][/font][/color][/size][/font][/color][/size][/font][font=Consolas][size=2][font=Consolas][size=2] objBestand = [/size][/font][/size][/font][font=Consolas][size=2][color=#0000ff][font=Consolas][size=2][color=#0000ff][font=Consolas][size=2][color=#0000ff]new[/color][/size][/font][/color][/size][/font][/color][/size][/font][font=Consolas][size=2][color=#2b91af][font=Consolas][size=2][color=#2b91af][font=Consolas][size=2][color=#2b91af]clsBestand[/color][/size][/font][/color][/size][/font][/color][/size][/font][font=Consolas][size=2][font=Consolas][size=2]();[/size][/font][/size][/font][font=Consolas][size=2][font=Consolas][size=2] objBestand.bestandsnaamString = file2; [/size][/font][/size][/font][font=Consolas][size=2][font=Consolas][size=2] [/size][/font][/size][/font][font=Consolas][size=2][color=#0000ff][font=Consolas][size=2][color=#0000ff][font=Consolas][size=2][color=#0000ff]if[/color][/size][/font][/color][/size][/font][/color][/size][/font][font=Consolas][size=2][font=Consolas][size=2] (objBestand.FileInfo() == info.Exists)[/size][/font][/size][/font] [font=Consolas][size=2][font=Consolas][size=2]{ [/size][/font][/size][/font][font=Consolas][size=2][color=#2b91af][font=Consolas][size=2][color=#2b91af][font=Consolas][size=2][color=#2b91af]DialogResult[/color][/size][/font][/color][/size][/font][/color][/size][/font][font=Consolas][size=2][font=Consolas][size=2] dialogResult = [/size][/font][/size][/font][font=Consolas][size=2][color=#2b91af][font=Consolas][size=2][color=#2b91af][font=Consolas][size=2][color=#2b91af]MessageBox[/color][/size][/font][/color][/size][/font][/color][/size][/font][font=Consolas][size=2][font=Consolas][size=2].Show([/size][/font][/size][/font][font=Consolas][size=2][color=#a31515][font=Consolas][size=2][color=#a31515][font=Consolas][size=2][color=#a31515]"Are you sure you want to delete "[/color][/size][/font][/color][/size][/font][/color][/size][/font][font=Consolas][size=2][font=Consolas][size=2] + name + [/size][/font][/size][/font][font=Consolas][size=2][color=#a31515][font=Consolas][size=2][color=#a31515][font=Consolas][size=2][color=#a31515]"?"[/color][/size][/font][/color][/size][/font][/color][/size][/font][font=Consolas][size=2][font=Consolas][size=2], [/size][/font][/size][/font][font=Consolas][size=2][color=#a31515][font=Consolas][size=2][color=#a31515][font=Consolas][size=2][color=#a31515]"Delete File?"[/color][/size][/font][/color][/size][/font][/color][/size][/font][font=Consolas][size=2][font=Consolas][size=2], [/size][/font][/size][/font][font=Consolas][size=2][color=#2b91af][font=Consolas][size=2][color=#2b91af][font=Consolas][size=2][color=#2b91af]MessageBoxButtons[/color][/size][/font][/color][/size][/font][/color][/size][/font][font=Consolas][size=2][font=Consolas][size=2].YesNo);[/size][/font][/size][/font][font=Consolas][size=2][font=Consolas][size=2] [/size][/font][/size][/font][font=Consolas][size=2][color=#0000ff][font=Consolas][size=2][color=#0000ff][font=Consolas][size=2][color=#0000ff]if[/color][/size][/font][/color][/size][/font][/color][/size][/font][font=Consolas][size=2][font=Consolas][size=2] (dialogResult == [/size][/font][/size][/font][font=Consolas][size=2][color=#2b91af][font=Consolas][size=2][color=#2b91af][font=Consolas][size=2][color=#2b91af]DialogResult[/color][/size][/font][/color][/size][/font][/color][/size][/font][font=Consolas][size=2][font=Consolas][size=2].Yes)[/size][/font][/size][/font] [font=Consolas][size=2][font=Consolas][size=2]{ objBestand.VerwijderBestand(); } [/size][/font][/size][/font][font=Consolas][size=2][color=#0000ff][font=Consolas][size=2][color=#0000ff][font=Consolas][size=2][color=#0000ff]else[/color][/size][/font][/color][/size][/font][/color][/size][/font][font=Consolas][size=2][color=#0000ff][font=Consolas][size=2][color=#0000ff][font=Consolas][size=2][color=#0000ff]if[/color][/size][/font][/color][/size][/font][/color][/size][/font][font=Consolas][size=2][font=Consolas][size=2] (dialogResult == [/size][/font][/size][/font][font=Consolas][size=2][color=#2b91af][font=Consolas][size=2][color=#2b91af][font=Consolas][size=2][color=#2b91af]DialogResult[/color][/size][/font][/color][/size][/font][/color][/size][/font][font=Consolas][size=2][font=Consolas][size=2].No)[/size][/font][/size][/font] [font=Consolas][size=2][font=Consolas][size=2] { [/size][/font][/size][/font][font=Consolas][size=2][color=#008000][font=Consolas][size=2][color=#008000][font=Consolas][size=2][color=#008000]//Do nothing[/color][/size][/font][/color][/size][/font][/color][/size][/font] [font=Consolas][size=2][font=Consolas][size=2]} } [/size][/font][/size][/font] (andere classe:) [font=Consolas][size=2][color=#0000ff][font=Consolas][size=2][color=#0000ff][font=Consolas][size=2][color=#0000ff]public [/color][/size][/font][/color][/size][/font][/color][/size][/font][font=Consolas][size=2][color=#2b91af][font=Consolas][size=2][color=#2b91af][font=Consolas][size=2][color=#2b91af]Boolean[/color][/size][/font][/color][/size][/font][/color][/size][/font][font=Consolas][size=2][font=Consolas][size=2] FileInfo()[/size][/font][/size][/font][font=Consolas][size=2][font=Consolas][size=2] { [/size][/font][/size][/font][font=Consolas][size=2][color=#0000ff][font=Consolas][size=2][color=#0000ff][font=Consolas][size=2][color=#0000ff]try[/color][/size][/font][/color][/size][/font][/color][/size][/font] [font=Consolas][size=2][font=Consolas][size=2]{ [/size][/font][/size][/font][font=Consolas][size=2][color=#2b91af][font=Consolas][size=2][color=#2b91af][font=Consolas][size=2][color=#2b91af] FileInfo[/color][/size][/font][/color][/size][/font][/color][/size][/font][font=Consolas][size=2][font=Consolas][size=2] info = [/size][/font][/size][/font][font=Consolas][size=2][color=#0000ff][font=Consolas][size=2][color=#0000ff][font=Consolas][size=2][color=#0000ff]new[/color][/size][/font][/color][/size][/font][/color][/size][/font][font=Consolas][size=2][color=#2b91af][font=Consolas][size=2][color=#2b91af][font=Consolas][size=2][color=#2b91af]FileInfo[/color][/size][/font][/color][/size][/font][/color][/size][/font][font=Consolas][size=2][font=Consolas][size=2]([/size][/font][/size][/font][font=Consolas][size=2][color=#0000ff][font=Consolas][size=2][color=#0000ff][font=Consolas][size=2][color=#0000ff]this[/color][/size][/font][/color][/size][/font][/color][/size][/font][font=Consolas][size=2][font=Consolas][size=2].mvarBestandsnaam);[/size][/font][/size][/font][font=Consolas][size=2][font=Consolas][size=2] [/size][/font][/size][/font][font=Consolas][size=2][color=#0000ff][font=Consolas][size=2][color=#0000ff][font=Consolas][size=2][color=#0000ff] return[/color][/size][/font][/color][/size][/font][/color][/size][/font][font=Consolas][size=2][color=#0000ff][font=Consolas][size=2][color=#0000ff][font=Consolas][size=2][color=#0000ff]true[/color][/size][/font][/color][/size][/font][/color][/size][/font][font=Consolas][size=2][font=Consolas][size=2]; [/size][/font][/size][/font][font=Consolas][size=2][color=#008000][font=Consolas][size=2][color=#008000][font=Consolas][size=2][color=#008000]//info.Exists;[/color][/size][/font][/color][/size][/font][/color][/size][/font] [font=Consolas][size=2][font=Consolas][size=2] } [/size][/font][/size][/font][font=Consolas][size=2][color=#0000ff][font=Consolas][size=2][color=#0000ff][font=Consolas][size=2][color=#0000ff] catch[/color][/size][/font][/color][/size][/font][/color][/size][/font] [font=Consolas][size=2][font=Consolas][size=2] { [/size][/font][/size][/font][font=Consolas][size=2][color=#0000ff][font=Consolas][size=2][color=#0000ff][font=Consolas][size=2][color=#0000ff] return[/color][/size][/font][/color][/size][/font][/color][/size][/font][font=Consolas][size=2][color=#0000ff][font=Consolas][size=2][color=#0000ff][font=Consolas][size=2][color=#0000ff]false[/color][/size][/font][/color][/size][/font][/color][/size][/font][font=Consolas][size=2][font=Consolas][size=2];[/size][/font][/size][/font] [font=Consolas][size=2][font=Consolas][size=2] } } [/size][/font][/size][/font] Ik probeer ervoor te zorgen, dat hij van het geselecteerde item in me listbox, kijk of het bestand bestaat. wanneer ik nu een item verwijder, staat hij nog wel in me listbox, wanneer ik dan weer op verwijderen druk, verwijdert hij het volgende item (het item na het geselecteerde item) omdat het geselecteerde item niet meer bestaat. wat ik dus wil is dat hij checkt of het item dat in de listbox geselecteerd is ook echt bestaat. ik hoop dat iemand mij uit de brand kan helpen Ricje20

Hoi kweezie, het bedrijf waar ik stage liep en dit scriptje voor schreef bleek naa een aardige tijd toch geen goed bedrijf te zijn voor een stage plek. er is ondertussen aardig wat tijd overheen gegaan maar ik loop nu stage bij een nieuw bedrijf. het scriptje kan daardoor niet afgemaakt worden echt balen van het scriptje, het zal in ieder geval zeker niet verloren gaan. Super bedankt voor de hulp en tijd die u hierin gestoken heeft. ik zal dit markeren als opgelost aangezien er wel meerdere goede oplossingen inziten, maar die alleen niet bij het systeem van het bedrijf pasten. groetjes, ricje20

Kweezie, ik heb hem in het bedrijf gerunt, maar vrijwel gelijk kreeg ik al de klacht dat hij vast liep en zeeeer traag was. zoals je inderdaad zei sommige hebben veel contacten. hij looptelke contact door als je op een mail klikt, en bij die personen met veel contacten loopt hij idd vast/is hij traag. Er zijn denk 2 opties, 1. terugkeren naar een iets oudere versie, (waar hij nog niet checkt op de dubbele e-mail adressen bij een contactpersoon) Private Sub Application_ItemLoad(ByVal Item As Object) '(Outlook 2010 VBA) 'when you click on a mail it runs this script to check if the sender of that mail 'is already a contact, and if he's not, open the pannel to add him to contacts Dim folContacts As Outlook.MAPIFolder Dim folInbox As Outlook.MAPIFolder Dim colItems As Outlook.Items Dim oContact As Outlook.ContactItem ' Dim contactFolder As Outlook.Folder Dim oMail As Outlook.MailItem Dim obj As Object Dim oNS As Outlook.NameSpace Dim oALijsten As Outlook.AddressLists Dim oALijst As Outlook.AddressList Dim oAEntries As Outlook.AddressEntries Dim oAEntry As Outlook.AddressEntry Dim Gebruiker As ExchangeUser Dim bContinue As Boolean Dim sSenderName As String On Error Resume Next Set oNS = Application.GetNamespace("MAPI") Set folContacts = oNS.GetDefaultFolder(olFolderContacts) Set folInbox = oNS.GetDefaultFolder(olFolderInbox) Set colItems = folContacts.Items For Each obj In Application.ActiveExplorer.Selection If obj.Class = olMail Then If Not Application.ActiveExplorer.CurrentFolder.Name = "Postvak IN" And Not Application.ActiveExplorer.CurrentFolder.Parent.Name = "Postvak IN" Then 'MsgBox "folder: " & Application.ActiveExplorer.CurrentFolder.Name Exit For ' Else 'MsgBox "folder: " & Application.ActiveExplorer.CurrentFolder.Name End If Set oContact = Nothing bContinue = True sSenderName = "" Set oMail = obj 'defines the name of the sender sSenderName = oMail.SentOnBehalfOfName If sSenderName = ";" Then sSenderName = oMail.SenderName End If 'sets the e-mail address of the sender esender = oMail.SenderEmailAddress Set esender = colItems.Find("[E-mail] = '" & esender & "'") 'sets the name of the oContact, to the name of the sender Set oContact = colItems.Find("[FullName] = '" & sSenderName & "'") 'checks if the e-mailadress exsist in the contacts, if it does exit the for loop If Not esender Is Nothing Then 'MsgBox "Gevonden in contacts: " & sSenderName Exit For Else 'checks if the name or the e-mailadress exsist in one of the address lists, if it does exit the for loop Set oALijsten = oNS.AddressLists esender = oMail.SenderEmailAddress teller = 1 'loop through the available address lists Do While teller < oALijsten.Count + 1 Set oALijst = oALijsten.Item(teller) Set oAEntries = oALijst.AddressEntries counter = 1 'loop trough the entries of the address list Do While counter < oAEntries.Count + 1 Set oAEntry = oAEntries.Item(counter) 'check the senders name If sSenderName = oAEntry.Name Then 'MsgBox "Adresslijst : " & oALijst.Name & vbCrLf & "Gevonden : " & oAEntry.Name ' check the senders mail address Set Gebruiker = oAEntry.GetExchangeUser If UCase(Gebruiker.Address) = esender Then 'MsgBox "mail adres gevonden : " & sSenderName & vbCrLf & "Gevonden : " & Gebruiker.PrimarySmtpAddress Exit For End If End If counter = counter + 1 Loop teller = teller + 1 Loop End If End If 'fill in the fields of the "AddContact Pannel" If bContinue Then Set oContact = colItems.Add(olContactItem) With oContact .Email1Address = oMail.SenderEmailAddress .Email1DisplayName = sSenderName .Email1AddressType = oMail.SenderEmailType .FullName = oMail.SenderName '.Save 'displays the add contact pannel oContact.Display MsgBox "Deze persoon staat nog niet in uw Contactpersonen of Adressboek" End With End If Next Set folContacts = Nothing Set colItems = Nothing Set oContact = Nothing Set oMail = Nothing Set obj = Nothing Set oNS = Nothing End Sub of: optie 2... misschien wel onmogelijk, zeg maar of je denkt dat het mogelijk is anders is optie 1 ook goed dat hij op naam zoekt, en wanneer je iemand met dezelfde naam heb, gaat hij de email adressen bij alleen die persoon na.... of zou dit alsnog vertragend zijn? Ik hoor het nog! - - - Updated - - - Opzich is optie 1 ook mogelijk dan vertel ik erbij dat ze gewoon geen 2 e-mail adressen onder 1 naam moeten toevoegen, maar gewoon even een nieuw contact ervoor moeten maken. Ik hoor het nog ;p

hoi Kweezie! Ik ben nog geen fouten tegengekomen ziet er super uit! ik ga hem weer door het bedrijf heen gooien en kijken wat er gebeurt super bedankt, ik laat nog even weten wanneer ik het in het bedrijf geinstalleerd heb en het allemaal werkt (voor de mensen met hetzelfde probleem) FINAL CODE (nederlandse versie van outlook): Private Sub Application_ItemLoad(ByVal Item As Object) '(Outlook 2010 VBA) 'when you click on a mail it runs this script to check if the sender of that mail 'is already in contacts or addressbook, if he's not, open the pannel to add him to contacts Dim folContacts As Outlook.MAPIFolder Dim folInbox As Outlook.MAPIFolder Dim colItems As Outlook.Items Dim oContact As Outlook.ContactItem Dim oMail As Outlook.MailItem Dim obj As Object Dim oNS As Outlook.NameSpace Dim oALijsten As Outlook.AddressLists Dim oALijst As Outlook.AddressList Dim oAEntries As Outlook.AddressEntries Dim oAEntry As Outlook.AddressEntry Dim Gebruiker As ExchangeUser Dim bContinue As Boolean Dim sSenderName As String On Error Resume Next Set oNS = Application.GetNamespace("MAPI") Set folContacts = oNS.GetDefaultFolder(olFolderContacts) Set folInbox = oNS.GetDefaultFolder(olFolderInbox) Set colItems = folContacts.Items For Each obj In Application.ActiveExplorer.Selection If obj.Class = olMail Then If Not Application.ActiveExplorer.CurrentFolder.Name = "Postvak IN" And Not Application.ActiveExplorer.CurrentFolder.Parent.Name = "Postvak IN" Then 'If Not Application.ActiveExplorer.CurrentFolder.Name = "Inbox" And Not Application.ActiveExplorer.CurrentFolder.Parent.Name = "Inbox" Then Exit For End If Set oContact = Nothing bContinue = True sSenderName = "" Set oMail = obj 'defines the name of the sender sSenderName = oMail.SentOnBehalfOfName If sSenderName = ";" Then sSenderName = oMail.SenderName End If Set oALijsten = oNS.AddressLists teller = 1 'checks if the e-mailadress exsist in the contacts, if it does exit the for loop Do While teller < oALijsten.Count + 1 Set oALijst = oALijsten.Item(teller) 'If oALijst.Name = "Contacts" Then If oALijst.Name = "Contactpersonen" Then Set oAEntries = oALijst.AddressEntries counter = 1 'loop trough the entries of the Contacts address list Do While counter < oAEntries.Count + 1 Set oAEntry = oAEntries.Item(counter) Set oContact = oAEntry.GetContact If Not oContact Is Nothing Then If oContact.Email1Address = oMail.SenderEmailAddress Or oContact.Email2Address = oMail.SenderEmailAddress Or oContact.Email3Address = oMail.SenderEmailAddress Then 'MsgBox "Gevonden in contacts: " & sSenderName Exit For End If End If counter = counter + 1 Loop End If teller = teller + 1 Loop 'checks if the name or the e-mailadress exsist in one of the address lists, if it does exit the for loop 'sets the e-mail address of the sender esender = oMail.SenderEmailAddress teller = 1 'loop through the available address lists but skip "contacts" Do While teller < oALijsten.Count + 1 Set oALijst = oALijsten.Item(teller) 'If Not oALijst.Name = "Contacts" Then If Not oALijst.Name = "Contactpersonen" Then Set oAEntries = oALijst.AddressEntries counter = 1 'loop trough the entries of the address list Do While counter < oAEntries.Count + 1 Set oAEntry = oAEntries.Item(counter) 'check the senders name If sSenderName = oAEntry.Name Then 'check the senders mail address Set Gebruiker = oAEntry.GetExchangeUser If UCase(Gebruiker.Address) = esender Then 'MsgBox "mail adres gevonden : " & sSenderName & vbCrLf & "Gevonden : " & Gebruiker.PrimarySmtpAddress Exit For End If End If counter = counter + 1 Loop End If teller = teller + 1 Loop End If 'fill in the fields of the "AddContact Pannel" If bContinue Then Set oContact = colItems.Add(olContactItem) With oContact .Email1Address = oMail.SenderEmailAddress .Email1DisplayName = sSenderName .Email1AddressType = oMail.SenderEmailType .FullName = oMail.SenderName '.Save 'displays the add contact pannel oContact.Display MsgBox "Deze persoon staat nog niet in uw Contactpersonen of Adressboek, voer als mogelijk ook het telefoon nummer in" End With End If Next Set folContacts = Nothing Set colItems = Nothing Set oContact = Nothing Set oMail = Nothing Set obj = Nothing Set oNS = Nothing End Sub FINAL CODE (engelse versie van outlook): Private Sub Application_ItemLoad(ByVal Item As Object) '(Outlook 2010 VBA) 'when you click on a mail it runs this script to check if the sender of that mail 'is already in contacts or addressbook, if he's not, open the pannel to add him to contacts Dim folContacts As Outlook.MAPIFolder Dim folInbox As Outlook.MAPIFolder Dim colItems As Outlook.Items Dim oContact As Outlook.ContactItem Dim oMail As Outlook.MailItem Dim obj As Object Dim oNS As Outlook.NameSpace Dim oALijsten As Outlook.AddressLists Dim oALijst As Outlook.AddressList Dim oAEntries As Outlook.AddressEntries Dim oAEntry As Outlook.AddressEntry Dim Gebruiker As ExchangeUser Dim bContinue As Boolean Dim sSenderName As String On Error Resume Next Set oNS = Application.GetNamespace("MAPI") Set folContacts = oNS.GetDefaultFolder(olFolderContacts) Set folInbox = oNS.GetDefaultFolder(olFolderInbox) Set colItems = folContacts.Items For Each obj In Application.ActiveExplorer.Selection If obj.Class = olMail Then 'If Not Application.ActiveExplorer.CurrentFolder.Name = "Postvak IN" And Not Application.ActiveExplorer.CurrentFolder.Parent.Name = "Postvak IN" Then If Not Application.ActiveExplorer.CurrentFolder.Name = "Inbox" And Not Application.ActiveExplorer.CurrentFolder.Parent.Name = "Inbox" Then Exit For End If Set oContact = Nothing bContinue = True sSenderName = "" Set oMail = obj 'defines the name of the sender sSenderName = oMail.SentOnBehalfOfName If sSenderName = ";" Then sSenderName = oMail.SenderName End If Set oALijsten = oNS.AddressLists teller = 1 'checks if the e-mailadress exsist in the contacts, if it does exit the for loop Do While teller < oALijsten.Count + 1 Set oALijst = oALijsten.Item(teller) If oALijst.Name = "Contacts" Then 'If oALijst.Name = "Contactpersonen" Then Set oAEntries = oALijst.AddressEntries counter = 1 'loop trough the entries of the Contacts address list Do While counter < oAEntries.Count + 1 Set oAEntry = oAEntries.Item(counter) Set oContact = oAEntry.GetContact If Not oContact Is Nothing Then If oContact.Email1Address = oMail.SenderEmailAddress Or oContact.Email2Address = oMail.SenderEmailAddress Or oContact.Email3Address = oMail.SenderEmailAddress Then 'MsgBox "Gevonden in contacts: " & sSenderName Exit For End If End If counter = counter + 1 Loop End If teller = teller + 1 Loop 'checks if the name or the e-mailadress exsist in one of the address lists, if it does exit the for loop 'sets the e-mail address of the sender esender = oMail.SenderEmailAddress teller = 1 'loop through the available address lists but skip "contacts" Do While teller < oALijsten.Count + 1 Set oALijst = oALijsten.Item(teller) If Not oALijst.Name = "Contacts" Then 'If Not oALijst.Name = "Contactpersonen" Then Set oAEntries = oALijst.AddressEntries counter = 1 'loop trough the entries of the address list Do While counter < oAEntries.Count + 1 Set oAEntry = oAEntries.Item(counter) 'check the senders name If sSenderName = oAEntry.Name Then 'check the senders mail address Set Gebruiker = oAEntry.GetExchangeUser If UCase(Gebruiker.Address) = esender Then 'MsgBox "mail adres gevonden : " & sSenderName & vbCrLf & "Gevonden : " & Gebruiker.PrimarySmtpAddress Exit For End If End If counter = counter + 1 Loop End If teller = teller + 1 Loop End If 'fill in the fields of the "AddContact Pannel" If bContinue Then Set oContact = colItems.Add(olContactItem) With oContact .Email1Address = oMail.SenderEmailAddress .Email1DisplayName = sSenderName .Email1AddressType = oMail.SenderEmailType .FullName = oMail.SenderName '.Save 'displays the add contact pannel oContact.Display MsgBox "Deze persoon staat nog niet in uw Contactpersonen of Adressboek, voer als mogelijk ook het telefoon nummer in" End With End If Next Set folContacts = Nothing Set colItems = Nothing Set oContact = Nothing Set oMail = Nothing Set obj = Nothing Set oNS = Nothing End Sub

hoi kweezie, het werkte nog niet, ik zal even me gedachtengang neerzetten. Huidige code (met je laatste stukje gegeven code erin) Private Sub Application_ItemLoad(ByVal Item As Object) '(Outlook 2010 VBA) 'when you click on a mail it runs this script to check if the sender of that mail 'is already a contact, and if he's not, open the pannel to add him to contacts Dim folContacts As Outlook.MAPIFolder Dim folInbox As Outlook.MAPIFolder Dim colItems As Outlook.Items Dim oContact As Outlook.ContactItem ' Dim contactFolder As Outlook.Folder Dim oMail As Outlook.MailItem Dim obj As Object Dim oNS As Outlook.NameSpace Dim oALijsten As Outlook.AddressLists Dim oALijst As Outlook.AddressList Dim oAEntries As Outlook.AddressEntries Dim oAEntry As Outlook.AddressEntry Dim Gebruiker As ExchangeUser Dim bContinue As Boolean Dim sSenderName As String On Error Resume Next Set oNS = Application.GetNamespace("MAPI") Set folContacts = oNS.GetDefaultFolder(olFolderContacts) Set folInbox = oNS.GetDefaultFolder(olFolderInbox) Set colItems = folContacts.Items For Each obj In Application.ActiveExplorer.Selection If obj.Class = olMail Then If Not Application.ActiveExplorer.CurrentFolder.Name = "Postvak IN" And Not Application.ActiveExplorer.CurrentFolder.Parent.Name = "Postvak IN" Then 'MsgBox "folder: " & Application.ActiveExplorer.CurrentFolder.Name Exit For 'Else 'MsgBox "folder: " & Application.ActiveExplorer.CurrentFolder.Name End If Set oContact = Nothing bContinue = True sSenderName = "" Set oMail = obj 'defines the name of the sender sSenderName = oMail.SentOnBehalfOfName If sSenderName = ";" Then sSenderName = oMail.SenderName End If 'sets the e-mail address of the sender esender = oMail.SenderEmailAddress Set esender = colItems.Find("[E-mail] = '" & esender & "'") 'sets the name of the oContact, to the name of the sender Set oContact = colItems.Find("[FullName] = '" & sSenderName & "'") 'checks if the e-mailadress exsist in the contacts, if it does exit the for loop If Not esender Is Nothing Then If oContact.Email1Address = oMail.SenderEmailAddress Or oContact.Email2Address = oMail.SenderEmailAddress Or oContact.Email3Address = oMail.SenderEmailAddress Then 'MsgBox "Gevonden in contacts: " & sSenderName Exit For End If Else 'checks if the name or the e-mailadress exsist in one of the address lists, if it does exit the for loop Set oALijsten = oNS.AddressLists esender = oMail.SenderEmailAddress teller = 1 'loop through the available address lists Do While teller < oALijsten.Count + 1 Set oALijst = oALijsten.Item(teller) Set oAEntries = oALijst.AddressEntries counter = 1 'loop trough the entries of the address list Do While counter < oAEntries.Count + 1 Set oAEntry = oAEntries.Item(counter) 'check the senders name If sSenderName = oAEntry.Name Then 'MsgBox "Adresslijst : " & oALijst.Name & vbCrLf & "Gevonden : " & oAEntry.Name 'check the senders mail address Set Gebruiker = oAEntry.GetExchangeUser If UCase(Gebruiker.Address) = esender Then 'MsgBox "mail adres gevonden : " & sSenderName & vbCrLf & "Gevonden : " & Gebruiker.PrimarySmtpAddress Exit For End If End If counter = counter + 1 Loop teller = teller + 1 Loop End If End If 'fill in the fields of the "AddContact Pannel" If bContinue Then Set oContact = colItems.Add(olContactItem) With oContact .Email1Address = oMail.SenderEmailAddress .Email1DisplayName = sSenderName .Email1AddressType = oMail.SenderEmailType .FullName = oMail.SenderName '.Save 'displays the add contact pannel oContact.Display MsgBox "Deze persoon staat nog niet in uw Contactpersonen of Adresboek, voer als mogelijk ook het telefoon nummer in." End With End If Next Set folContacts = Nothing Set colItems = Nothing Set oContact = Nothing Set oMail = Nothing Set obj = Nothing Set oNS = Nothing End Sub in het volgende stuk If bContinue Then Set oContact = colItems.Add(olContactItem) With oContact .Email1Address = oMail.SenderEmailAddress .Email1DisplayName = sSenderName .Email1AddressType = oMail.SenderEmailType .FullName = oMail.SenderName '.Save 'displays the add contact pannel oContact.Display MsgBox "Deze persoon staat nog niet in uw Contactpersonen of Adresboek, voer als mogelijk ook het telefoon nummer in." End With Zet je oContact zo neer, dat hij door de velden zoekt van het schermpje om iemand toe te voegen, daarin vind je email1address enzo. nu zeggen we hier: 'sets the e-mail address of the sender esender = oMail.SenderEmailAddress Set esender = colItems.Find("[E-mail] = '" & esender & "'") 'sets the name of the oContact, to the name of the sender Set oContact = colItems.Find("[FullName] = '" & sSenderName & "'") 'checks if the e-mailadress exsist in the contacts, if it does exit the for loop If Not esender Is Nothing Then If oContact.Email1Address = oMail.SenderEmailAddress Or oContact.Email2Address = oMail.SenderEmailAddress Or oContact.Email3Address = oMail.SenderEmailAddress Then 'MsgBox "Gevonden in contacts: " & sSenderName Exit For End If Else dat hij in oContact het Email1addres, Email2address enz. moet vinden, maar hiervoor zeggen we we zoeken nu dus het emailaddress in een naamveld. ik dacht als ik nu (zoals helemaal onderin gedaan word), eerst oContact zet naar colItems.Find(olContactItem) en dan na het loopje oContact weer zet naar Set oContact = colItems.Find("[FullName] = '" & sSenderName & "'") werkt het misschien. 'sets the e-mail address of the sender esender = oMail.SenderEmailAddress Set esender = colItems.Find("[E-mail] = '" & esender & "'") Set oContact = colItems.Find(olContactItem) 'checks if the e-mailadress exsist in the contacts, if it does exit the for loop If Not esender Is Nothing Then If oContact.Email1Address = oMail.SenderEmailAddress Or oContact.Email2Address = oMail.SenderEmailAddress Or oContact.Email3Address = oMail.SenderEmailAddress Then 'MsgBox "Gevonden in contacts: " & sSenderName Exit For End If Else 'sets the name of the oContact, to the name of the sender Set oContact = colItems.Find("[FullName] = '" & sSenderName & "'") maar dat werkte nog niet maar zoeken we nu wel echt de al bestaande contactpersonen door? want volgens mij zoekt hij nu het schermpje door waarmee je een persoon toevoegd. als een persoon nu als "niet bestaand contactpersoon" word gezien, ziet hij dus niet dat er in de contactpersonen het gevonden e-mailaddress al bestaat onder een contactpersoon als "2e e-mailaddress". op een of andere manier zouden we dan moeten zorgen dat hij kijkt in de bestaande contacten of het 2e veld e-mailadress overeenkomt met het emailaddress van de zender.. Ik hoop dat ik een beetje te volgen ben - - - Updated - - - --update-- Misschien heb je wat aan dit screenshotje

--update-- zag hier staan Set oContact = colItems.Add(olContactItem) With oContact .Email1Address = oMail.SenderEmailAddress .Email1DisplayName = sSenderName .Email1AddressType = oMail.SenderEmailType .FullName = oMail.SenderName Email 1 Address en Email 1 DisplayName moeten we dan niet ergens zorgen dat hij ook Email 2 checkt? Set esender = colItems.Find("[E-mail] = '" & esender & "'") If Not esender Is Nothing Then 'MsgBox "Gevonden in contacts: " & sSenderName Exit For misschien dat we hier dan moeten zorgen dat hij mail addres 2 langsgaat? of zit ik daar fout te proberen

Hoi kweezie, De code werkte nog niet helemaal, dus heb wat kleine aanpassinkjes gedaan, nu doet hij het Private Sub Application_ItemLoad(ByVal Item As Object) '(Outlook 2010 VBA) 'when you click on a mail it runs this script to check if the sender of that mail 'is already a contact, and if he's not, open the pannel to add him to contacts Dim folContacts As Outlook.MAPIFolder Dim folInbox As Outlook.MAPIFolder Dim colItems As Outlook.Items Dim oContact As Outlook.ContactItem ' Dim contactFolder As Outlook.Folder Dim oMail As Outlook.MailItem Dim obj As Object Dim oNS As Outlook.NameSpace Dim oALijsten As Outlook.AddressLists Dim oALijst As Outlook.AddressList Dim oAEntries As Outlook.AddressEntries Dim oAEntry As Outlook.AddressEntry Dim Gebruiker As ExchangeUser Dim bContinue As Boolean Dim sSenderName As String On Error Resume Next Set oNS = Application.GetNamespace("MAPI") Set folContacts = oNS.GetDefaultFolder(olFolderContacts) Set folInbox = oNS.GetDefaultFolder(olFolderInbox) Set colItems = folContacts.Items For Each obj In Application.ActiveExplorer.Selection If obj.Class = olMail Then If Not Application.ActiveExplorer.CurrentFolder.Name = "Postvak IN" And Not Application.ActiveExplorer.CurrentFolder.Parent.Name = "Postvak IN" Then 'MsgBox "folder: " & Application.ActiveExplorer.CurrentFolder.Name Exit For ' Else 'MsgBox "folder: " & Application.ActiveExplorer.CurrentFolder.Name End If Set oContact = Nothing bContinue = True sSenderName = "" Set oMail = obj 'defines the name of the sender sSenderName = oMail.SentOnBehalfOfName If sSenderName = ";" Then sSenderName = oMail.SenderName End If 'sets the e-mail address of the sender esender = oMail.SenderEmailAddress Set esender = colItems.Find("[E-mail] = '" & esender & "'") 'sets the name of the oContact, to the name of the sender Set oContact = colItems.Find("[FullName] = '" & sSenderName & "'") 'checks if the e-mailadress exsist in the contacts, if it does exit the for loop If Not esender Is Nothing Then 'MsgBox "Gevonden in contacts: " & sSenderName Exit For Else 'checks if the name or the e-mailadress exsist in one of the address lists, if it does exit the for loop Set oALijsten = oNS.AddressLists esender = oMail.SenderEmailAddress teller = 1 'loop through the available address lists Do While teller < oALijsten.Count + 1 Set oALijst = oALijsten.Item(teller) Set oAEntries = oALijst.AddressEntries counter = 1 'loop trough the entries of the address list Do While counter < oAEntries.Count + 1 Set oAEntry = oAEntries.Item(counter) 'check the senders name If sSenderName = oAEntry.Name Then 'MsgBox "Adresslijst : " & oALijst.Name & vbCrLf & "Gevonden : " & oAEntry.Name ' check the senders mail address Set Gebruiker = oAEntry.GetExchangeUser If UCase(Gebruiker.Address) = esender Then 'MsgBox "mail adres gevonden : " & sSenderName & vbCrLf & "Gevonden : " & Gebruiker.PrimarySmtpAddress Exit For End If End If counter = counter + 1 Loop teller = teller + 1 Loop End If End If 'fill in the fields of the "AddContact Pannel" If bContinue Then Set oContact = colItems.Add(olContactItem) With oContact .Email1Address = oMail.SenderEmailAddress .Email1DisplayName = sSenderName .Email1AddressType = oMail.SenderEmailType .FullName = oMail.SenderName '.Save 'displays the add contact pannel oContact.Display MsgBox "Deze persoon staat nog niet in uw Contactpersonen of Adressboek" End With End If Next Set folContacts = Nothing Set colItems = Nothing Set oContact = Nothing Set oMail = Nothing Set obj = Nothing Set oNS = Nothing End Sub Nu dat laatste dingetje nog, in een vorige post had ik het niet goed uitgelegd zie ik net Daar moet bijgezegd worden, Wanneer een persoon toevoegd met dezelfde naam, vraag hij of je er een nieuw contact van wilt maken, of het mailadres wil toevoegen bij dat bestaande contact, wanneer je voor dat laatste kiest, komt het er zo in je contacten uit te zien (screenshot) (in oorspronkelijk stond er ook bij dat het in adresboek was maar dat is nu niet het geval)

Hoi kweezie, De nieuwe versie checkt alleen in het addressboek. maar de vorige code was wel goed Private Sub Application_ItemLoad(ByVal Item As Object) '(Outlook 2010 VBA) 'when you click on a mail it runs this script to check if the sender of that mail 'is already a contact, and if he's not, open the pannel to add him to contacts Dim folContacts As Outlook.MAPIFolder Dim colItems As Outlook.Items Dim oContact As Outlook.ContactItem Dim contactFolder As Outlook.Folder Dim oMail As Outlook.MailItem Dim obj As Object Dim oNS As Outlook.NameSpace Dim oALijsten As Outlook.AddressLists Dim oALijst As Outlook.AddressList Dim oAEntries As Outlook.AddressEntries Dim oAEntry As Outlook.AddressEntry Dim Gebruiker As ExchangeUser Dim bContinue As Boolean Dim sSenderName As String On Error Resume Next Set oNS = Application.GetNamespace("MAPI") Set folContacts = oNS.GetDefaultFolder(olFolderContacts) Set colItems = folContacts.Items For Each obj In Application.ActiveExplorer.Selection If obj.Class = olMail Then Set oContact = Nothing bContinue = True sSenderName = "" Set oMail = obj 'defines the name of the sender sSenderName = oMail.SentOnBehalfOfName If sSenderName = ";" Then sSenderName = oMail.SenderName End If esender = oMail.SenderEmailAddress 'sets the e-mail address of the sender Set esender = colItems.Find("[E-mail] = '" & esender & "'") 'sets the name of the oContact, to the name of the sender Set oContact = colItems.Find("[FullName] = '" & sSenderName & "'") 'checks if the e-mailadress exsist in the contacts, if it does exit the for loop If Not esender Is Nothing Then ' MsgBox "Gevonden in contacts: " & sSenderName Exit For Else 'checks if the name or the e-mailadress exsist in one of the address lists, if it does exit the for loop Set oALijsten = oNS.AddressLists esender = oMail.SenderEmailAddress teller = 1 'loop through the available address lists Do While teller < oALijsten.Count + 1 Set oALijst = oALijsten.Item(teller) Set oAEntries = oALijst.AddressEntries counter = 1 'loop trough the entries of the address list Do While counter < oAEntries.Count + 1 Set oAEntry = oAEntries.Item(counter) 'check the senders name If sSenderName = oAEntry.Name Then ' MsgBox "Adresslijst : " & oALijst.Name & vbCrLf & "Gevonden : " & oAEntry.Name ' check the senders mail address Set Gebruiker = oAEntry.GetExchangeUser If UCase(Gebruiker.Address) = esender Then ' MsgBox "mail adres gevonden : " & sSenderName & vbCrLf & "Gevonden : " & Gebruiker.PrimarySmtpAddress Exit For End If End If counter = counter + 1 Loop teller = teller + 1 Loop End If End If 'fill in the fields of the "AddContact Pannel" If bContinue Then Set oContact = colItems.Add(olContactItem) With oContact .Email1Address = oMail.SenderEmailAddress .Email1DisplayName = sSenderName .Email1AddressType = oMail.SenderEmailType .FullName = oMail.SenderName '.Save 'displays the add contact pannel oContact.Display MsgBox "Deze persoon staat nog niet in uw Contactpersonen of Adressboek" End With End If Next Set folContacts = Nothing Set colItems = Nothing Set oContact = Nothing Set oMail = Nothing Set obj = Nothing Set oNS = Nothing End Sub alleen ben ik nog iets vergeten (had het in het bedrijf geinstalleerd alleen bleek er dus nog 1 ding niet helemaal te kloppen haha) een beetje vaag maar: als je in de concepten, een concept klikt , kwam ook het AddContact schermpje naar boven. (zonder ingevulde velden maar dat waarschijnlijk omdat een concept geen "verzender" heeft). ik dacht, misschien moeten we hier iets in veranderen dat hij alleen doorgaat met de check als je in de box Postvak in zit ofso Set oNS = Application.GetNamespace("MAPI") Set folContacts = oNS.GetDefaultFolder(olFolderContacts) Set colItems = folContacts.Items had al wat dingetjes geprobeerd als .select current folder if postvak in ga door (even op ze meest super simpels gezegt haha), maar kwam er niet uit. Ik hoop dat je me nog niet zat bent :3

Dat is helemaal juist (gefeliciteerd met 20.000 berichten haha)

Dit is hem bijna wanneer een persoon dezelfde naam heeft, checkt hij alleen de eerste in de lijst. bijvoorbeeld: Rico Maartense (Rico.maartense@gmail.com) Rico Maartense (Rico_maartense@hotmail.com) in dit geval checkt hij alleen de eerste (dus gmail), dus als je hotmail en gmail hebt toegevoegd, checkt hij degene die bovenaan staat dus wanneer ik nu op een mail van het hotmail adres klik voegt hij hem toe (ook al bestaat hij al), dit is in de contactpersonen en adresboek. ik dacht misschien moeten we net zoals we door het adresboek heen "telde", ook door de contactpersonen met dezelfde naam heengaan met een teller ik hoop van je te horen - - - Updated - - - --update-- sorry dat ik zelf nog niet zoveel mee kan doen met de code ik ben het nog een beetje aan het leren haha, ik leer hier wel een hoop van

Hey, hmm.. erg moelijk uit te leggen dit ik klik op een mail als de naam (email adres weet ik niet want hij voegt hem zoizo toe nu ;p) van de persoon in het adresboek staat voegt hij hem toe (altijd, 1 uitzondering, voor uitzondering zie verder xD). maar bij contacts, doet hij het nu perfect ;o Rico Maartense (rico.maartense@gmail.com) staat in contacts ik klik op Rico Maartense (rico_maartense@hotmail.com) en hij ziet dat het e-mail adres verschilt dus hij voegt hem toe. maar nu rico maartense al in contacts staat, voegt hij hem niet meer toe, ook al staat rico maartense in het adresboek (die altijd toevoegt) ... ... ik snap zelf amper hoe ik dit moet uitleggen lol.. ik hoop dat je het een beetje begrijpt de contacts werken nu dus goed en zoekt op e-mail. maar als de naam in het adresboek staat voegt hij hem zoizo toe behalve als de naam al in contacts staat. Private Sub Application_ItemLoad(ByVal Item As Object) '(Outlook 2010 VBA) 'by Rico Maartense 'when you click on a mail it runs this script to check if the sender of that mail 'is already a contact, and if he's not, open the pannel to add him to contacts Dim folContacts As Outlook.MAPIFolder Dim colItems As Outlook.Items Dim oContact As Outlook.ContactItem Dim contactFolder As Outlook.Folder Dim oMail As Outlook.MailItem Dim obj As Object Dim oNS As Outlook.NameSpace Dim oALijsten As Outlook.AddressLists Dim oALijst As Outlook.AddressList Dim oAEntries As Outlook.AddressEntries Dim oAEntry As Outlook.AddressEntry '' exchange rule Dim Gebruiker As ExchangeUser Dim bContinue As Boolean Dim sSenderName As String On Error Resume Next Set oNS = Application.GetNamespace("MAPI") Set folContacts = oNS.GetDefaultFolder(olFolderContacts) Set colItems = folContacts.Items For Each obj In Application.ActiveExplorer.Selection If obj.Class = olMail Then Set oContact = Nothing bContinue = True sSenderName = "" Set oMail = obj 'defines the name of the sender sSenderName = oMail.SentOnBehalfOfName If sSenderName = ";" Then sSenderName = oMail.SenderName End If esender = oMail.SenderEmailAddress 'sets esender to the e-mail address of the sender Set esender = colItems.Find("[E-mail] = '" & esender & "'") 'sets oContact, to the name of the sender Set oContact = colItems.Find("[FullName] = '" & sSenderName & "'") 'checks if the e-mailadress exsist in the contacts, if it does exit the for loop If Not esender Is Nothing Then 'MsgBox "Gevonden in contacts: " & sSenderName Exit For Else 'checks if the name or the e-mailadress exsist in one of the address lists, if it does exit the for loop Set oALijsten = oNS.AddressLists esender = oMail.SenderEmailAddress teller = 1 'loop through the available address lists Do While teller < oALijsten.Count + 1 Set oALijst = oALijsten.Item(teller) Set oAEntries = oALijst.AddressEntries counter = 1 'loop trough the entries of the address list Do While counter < oAEntries.Count + 1 Set oAEntry = oAEntries.Item(counter) 'checks the senders name/email-address, if it does exit the for loop If sSenderName = oAEntry.Name Then ' MsgBox "Adresslijst : " & oALijst.Name & vbCrLf & "Gevonden : " & oAEntry.Name 'exchange rule ' check the senders mail address Set Gebruiker = oAEntry.GetExchangeUser If Gebruiker.PrimarySmtpAddress = esender Then ' MsgBox "mail adres gevonden : " & sSenderName & vbCrLf & "Gevonden : " & Gebruiker.PrimarySmtpAddress Exit For End If End If counter = counter + 1 Loop teller = teller + 1 Loop End If End If 'fill in the fields of the "AddContact Pannel" If bContinue Then Set oContact = colItems.Add(olContactItem) With oContact .Email1Address = oMail.SenderEmailAddress .Email1DisplayName = sSenderName .Email1AddressType = oMail.SenderEmailType .FullName = oMail.SenderName '.Save 'displays the add contact pannel oContact.Display MsgBox sSenderName + " staat nog niet in uw Contactpersonen of Adresboek" End With End If Next Set folContacts = Nothing Set colItems = Nothing Set oContact = Nothing Set oMail = Nothing Set obj = Nothing Set oNS = Nothing End Sub