Mail automatisch backuppen naar harde schijf

Status
Niet open voor verdere reacties.
D

Dylan98

Gebruiker
Lid geworden
14 jun 2014
Berichten
190
Kan ik e-mails van bepaalde afzenders automatisch laten kopieren naar een map op mijn harde schijf?
 
Om een correct antwoord op deze vraag te krijg zal je ook even moeten laten weten welk mail programma je gebruikt.
 
Ik gebruik nu de standaar mail app in windows 10, maar als het hier niet mee kan en met een ander mail programma wel ben ik bereid om dat programma te gaan gebruiken.
 
Met Office Outlook had ik je wel kunnen helpen. Wellicht dat iemand anders wat voor je weet.
 
Als je het zou kunnen uitleggen voor office outlook. Graag. Dan kan ik dat gaan proberen.
 
Ik heb geprobeerd om mijn mail in te stellen in outlook 2010.
Ik heb een (naam)@outlook.com mail.
Weet iemand de server voor inkomende en uitkomende email en eventuele overige instellingen. Ik heb op google gezocht maar kon het nergens vinden.
 
Ik heb de mail kunnen instellen maar de rest lukt nu niet. Kan iemand mij helpen?
Sorry voor zoveel vragen.:d
 
ik ben zover gekomen dat de mails worden opgeslagen in de documenten map op mijn harde schijf.
Maar nu:
1. Hij kopieert nu alle mails naar documenten, maar ik wil alleen mails van bepaalde afzenders backuppen. Hoe stel ik dit in?
2. Kan ik de map waarheen hij de mails kopieert wijzigen? Zo ja, hoe?
 
Hoe dat in jouw situatie zou moeten kan alleen wat over worden gezegd als je de code plaatst zoals je die nu hebt.
 
Ik heb nu de code alleen gekopieerd zoals hij in uw link staat. Dus:

Option Explicit
Public Sub SaveMessageAsMsg()
Dim oMail As Outlook.MailItem
Dim objItem As Object
Dim sPath As String
Dim dtDate As Date
Dim sName As String
Dim enviro As String

enviro = CStr(Environ("USERPROFILE"))
For Each objItem In ActiveExplorer.Selection
If objItem.MessageClass = "IPM.Note" Then
Set oMail = objItem

sName = oMail.Subject
ReplaceCharsForFileName sName, "-"

dtDate = oMail.ReceivedTime
sName = Format(dtDate, "yyyymmdd", vbUseSystemDayOfWeek, _
vbUseSystem) & Format(dtDate, "-hhnnss", _
vbUseSystemDayOfWeek, vbUseSystem) & "-" & sName & ".msg"

sPath = enviro & "\Documents\"
Debug.Print sPath & sName
oMail.SaveAs sPath & sName, olMSG

End If
Next

End Sub

Private Sub ReplaceCharsForFileName(sName As String, _
sChr As String _
)
sName = Replace(sName, "'", sChr)
sName = Replace(sName, "*", sChr)
sName = Replace(sName, "/", sChr)
sName = Replace(sName, "\", sChr)
sName = Replace(sName, ":", sChr)
sName = Replace(sName, "?", sChr)
sName = Replace(sName, Chr(34), sChr)
sName = Replace(sName, "<", sChr)
sName = Replace(sName, ">", sChr)
sName = Replace(sName, "|", sChr)
End Sub
 
En in welke map wil je de mails opslaan?
 
Ok. Kijk dan eens naar dit:
Code: 
Option Explicit
Public Sub SaveMessageAsMsg()
    Dim oMail As Outlook.MailItem
    Dim objItem As Object
    Dim sPath As String
    Dim dtDate As Date
    Dim sName As String
    Dim enviro As String
    
    enviro = CStr(Environ("USERPROFILE"))
    For Each objItem In ActiveExplorer.Selection
        If objItem.MessageClass = "IPM.Note" Then
            Set oMail = objItem
            Select Case oMail.SenderEmailAddress
[COLOR="#FF0000"]                Case "iemand@upcmail.nl", _
                     "iemand@livemail.com", _
                     "iemand@kpnmail.nl"[/COLOR]
                    
                    sName = oMail.Subject
                    ReplaceCharsForFileName sName, "-"
                    dtDate = oMail.ReceivedTime
                    sName = Format(dtDate, "yyyymmdd", vbUseSystemDayOfWeek, _
                            vbUseSystem) & Format(dtDate, "-hhnnss", _
                            vbUseSystemDayOfWeek, vbUseSystem) & "-" & sName & ".msg"
                    
                    [COLOR="#008000"]sPath = enviro & "\Documents\Mail\"[/COLOR]
                    Debug.Print sPath & sName
                    oMail.SaveAs sPath & sName, olMSG
            End Select
        End If
    Next
End Sub

Private Sub ReplaceCharsForFileName(sName As String, sChr As String)
    sName = Replace(sName, "'", sChr)
    sName = Replace(sName, "*", sChr)
    sName = Replace(sName, "/", sChr)
    sName = Replace(sName, "\", sChr)
    sName = Replace(sName, ":", sChr)
    sName = Replace(sName, "?", sChr)
    sName = Replace(sName, Chr(34), sChr)
    sName = Replace(sName, "<", sChr)
    sName = Replace(sName, ">", sChr)
    sName = Replace(sName, "|", sChr)
End Sub

Bij dat rode gedeelte pas je uiteraard de adressen aan en dit mag je uitbreiden met zoveel adressen als je maar wilt.
In het groene gedeelte staat waar de mail wordt opgeslagen. Die map moet wel bestaan.
 
Laatst bewerkt:
Dankuwel voor al uw hulp en uw snelle reacties. Ik denk dat het zo wel moet lukken.
 
Graag gedaan. Laat je nog even weten of het zo werkt?
 
ik ga het morgen instellen. Me internet doet het heel erg slecht op het moment.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan