Help!

PC-Problemen?
De vrijwilligers van Oplossing.be zoeken gratis met u mee!

Hulp bij posten

Recente topics

Recente berichten

Pagina's: [1] 2 3 4 ... 10
1
E-Mailprogramma's / Re: map 'ongewenste mail' verwijderen bij afsluiten Outlook
« Laatste bericht door MollyVH Gepost op 03 juni 2023, 10:35:10 »
Geen probleem, Arnold, ik verneem dan mettertijd wel hoe het afgelopen is.
Succes ondertussen met alle vereiste aanpassingen voor je meterstandensysteem!

Mvg,
Molly
2
E-Mailprogramma's / Re: map 'ongewenste mail' verwijderen bij afsluiten Outlook
« Laatste bericht door Montagnard Gepost op 03 juni 2023, 09:31:07 »
Dag Molly,
alvast bedankt om het te willen nakijken , ik ga dat zeker uittesten !
maar momenteel zit ik met andere "zorgen" : men is komen digitale meters plaatsen , zowel voor aardgas als elektriciteit en water...
nu mag ik mijn ganse bestand , waar ik mijn meterstanden ingeef , daarnaar gaan aanpassen....
dus nu eerst dat.
Mvg,
Arnold.
3
E-Mailprogramma's / Re: map 'ongewenste mail' verwijderen bij afsluiten Outlook
« Laatste bericht door MollyVH Gepost op 02 juni 2023, 13:37:58 »
Dag Arnold,

Citaat
iemand de nodige kennis om de code eventueel aan te passen naar onze beide accounts ?
Absoluut niet :D , dus ik was er wijselijk afgebleven.
Maar nu ik merk dat je helemaal geen reacties krijgt ben ik toch eens wat gaan proberen. In mijn Outlook zit maar één account, dus testen valt nogal tegen :(

In elk geval heb ik de indruk dat je het gedeelte Set objJunkFolder = Outlook.Application.Session.GetDefaultFolder(olFolderJunk) plus de code eronder nogmaals zal moeten uitvoeren, maar dan beginnend met iets in de stijl van
Set Account = Application.Session.Folders("Mw. Montagnard")
Set objJunkFolder = Account.Folders("ongewenste e-mail")
Wel minstens één en mogelijk twee van de teksten tussen aanhalingstekens aanpassen ;)

Als je dan met F8 door de code gaat merk je wel op een veilige manier of het goed zit. Succes !

O ja, ik zag net nog dat je in die tweede ronde 'objDeletedFolder' ook anders zal moeten definiëren, maar dat zal iets gelijkaardigs worden.

Mvg,
Molly
4
E-Mailprogramma's / map 'ongewenste mail' verwijderen bij afsluiten Outlook
« Laatste bericht door Montagnard Gepost op 31 mei 2023, 14:01:13 »
Dag,
ik gebruik Outlook van Office , met 2 Outlook accounts , die van mezelf en die van mijn vrouw.
omdat er dagdagelijks nogal wat spam toekomt in onze beide folders "ongewenste e-mail , en dan vooral bij de account van mijn vrouw , ben ik op zoek gegaan om die folder bij het afsluiten van Outlook automatisch te laten ledigen , de folder(s) "verwijderde items" van onze beide accounts worden automatisch geledigd , dat kan je in Outlook instellen bij "opties".
ik heb code gevonden die ik via VBA kon invoegen via een VBA project én dat is gelukt , alleen wordt enkel MIJN folder "ongewenste e-mail" geledigd bij afsluiten , die van mijn vrouw wordt niet geledigd...
iemand de nodige kennis om de code eventueel aan te passen naar onze beide accounts ?
Mvg,
Arnold.

Private Sub Application_Quit()
    Dim objJunkFolder As Outlook.Folder
    Dim i As Long
    Dim objMail As Outlook.MailItem
    Dim objDeletedFolder As Outlook.Folder
    Dim objItem As Object
    Dim objProperty As Outlook.UserProperty
 
    Set objJunkFolder = Outlook.Application.Session.GetDefaultFolder(olFolderJunk)
 
    For i = objJunkFolder.Items.Count To 1 Step -1
        If objJunkFolder.Items(i).Class = olMail Then
           Set objMail = objJunkFolder.Items(i)
 
           'Add the specific property to each junk email
           objMail.UserProperties.Add "Delete", olText
           objMail.Save
           'Delete them
           objMail.Delete
        End If
    Next
 
    Set objDeletedFolder = Application.Session.GetDefaultFolder(olFolderDeletedItems)
 
    For Each objItem In objDeletedFolder.Items
        'Find out the junk emails in the "Deleted Items" folder
        Set objProperty = objItem.UserProperties.Find("Delete")
        If TypeName(objProperty) <> "Nothing" Then
           'Permanently delete them
           objItem.Delete
        End If
    Next
 
    'Prompt You
    MsgBox Chr(34) & "Ongewenste mail" & Chr(34) & " Folder geledigd !", vbExclamation + vbOKOnly
End Sub
5
Excel / Re: Behouden
« Laatste bericht door RedHead Gepost op 31 mei 2023, 11:40:43 »
Ik zou zelf werken met .ClearContents ipv .Clear. Met mijn optie laat je de opmaak van de cellen bestaan.
6
Excel / Re: Behouden
« Laatste bericht door SoftAid Gepost op 31 mei 2023, 11:30:26 »
Sunnybat,

fijn dat je het zelf opgelost hebt.

Mag ik je er nogmaals op wijzen dat iets als Cel P niet bestaat. Je spreekt over kolommen, noem het dan ook Kolom F.

En nogmaals, zet je code tussen code-tags: Selecteer je code en druk op de knop (#) "Voeg code toe"( in de knoppenbalk boven je bericht)

Dank je wel.

:) SoftAid :)             
7
Excel / Re: Behouden
« Laatste bericht door Sunnybat Gepost op 31 mei 2023, 09:15:40 »
 0:-)
Beetje dom

Reeds opgelost met

ActiveSheet.Range("A2:O2000").Clear
8
Excel / Behouden
« Laatste bericht door Sunnybat Gepost op 31 mei 2023, 09:07:50 »
Hoi,

Klein vraagje

ik gebruik dit om na een cvs te hebben opgeslagen om de bepaalde cellen leeg te maken

ActiveSheet.Range("A2:O2000").Delete

het werkt perfect alleen heb ik in Cel P formules staan die worden dan verplaatst na Cel A
is het misschien mogelijk om de waarde die in cel P staan daar te laten staan, dus niet worden verplaatst na cel A



9
Windows algemeen / Re: backups
« Laatste bericht door Montagnard Gepost op 29 mei 2023, 09:42:18 »
Fons , wat bedoel je met "geen toegang gekregen" ? toegang tot de website ?
indien dit het geval is , hier een andere link : https://www.ubackup.com/downloads.html , een beetje naar beneden scrollen en dan de linkse optie....
Mvg,
10
Windows algemeen / Re: backups
« Laatste bericht door fons Gepost op 29 mei 2023, 09:38:28 »
hello
lukt niet geen toegang gekregen
toch bedankt voor de medewerking
fons
Pagina's: [1] 2 3 4 ... 10


www.combell.com