E-mailbericht verwijderen

[SUVERMO]

Bestaat er een commando dat er voor zorgt dat alle e-mailberichten die via een macro in excel naar een bepaald adres worden verzonden niet zichtbaar zijn bij de verzonden berichten. Of een code voor het verwijderen van een bericht uit de map verzonden berichten en dit bericht definitief verwijderen uit de prullenbak.

 

[cow18]

ja, staat allemaal op de site van SNB, http://www.snb-vba.eu/VBA_Outlook_external.html#L_4.2.3
Hoe definitief is definitief op een harde schijf ?

 

[SUVERMO]

in de gevonden code heb ik controle vervangen door het e-mailadress
maar dit geeft foutmelding

wat is er fout?

Sub email_verwijderen()
c00 = "controle"

CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(4).Items(c00).Delete
End Sub

Sub email_verwijderen()
c00 = "franszenhangoren@gmail.com"

CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(4).Items(c00).Delete
End Sub

 

[HSV]

Sub email_verwijderen()
c00 = "[SIZE=5][COLOR=#ff0000]'[/COLOR][/SIZE][COLOR=#3E3E3E]franszenhangoren[/COLOR]@gmail.com[SIZE=5][COLOR=#ff0000]'[/COLOR][/SIZE]"
 For Each it In CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(5).Items
  If it.To = c00 Then it.Delete
 Next
End Sub

 

[SUVERMO]

Bedankt voor uw reactie
heb een paar testen gedaan
onderstaande heb ik toegevoegd in een bestaande macro

c00 = " Annemie Hendrix "
 For Each it In CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(5).Items
  If it.To = c00 Then it.Delete
 Next

de uitvoering van de macro duurt merkelijk langer, wel een 10 tal minuten, hij doet dus wel iets meer, maar de mail blijft aanwezig, zie plaatje

de variabele c00 heb ik een paar keer aangepast, Welke zou de juiste moeten zijn?
c00 = "'nick.annemie@gmail.com'"
c00 = " nick.annemie@gmail.com "
c00 = "'Annemie Hendrix'"
c00 = " Annemie Hendrix "

 

[cow18]

vraagje vooraf, wat heb je nu ? Gmail of Outlook ?
Zullen de suggesties wel werken voor Gmail ?
Anders vind ik dit : https://recoverit.wondershare.com/email-recovery/how-to-delete-all-emails-gmail.html

 

[cow18]

niet getest, ik heb geen outlook of gmail.
Op je huidige tabblad zou je een lijst moeten krijgen van de aanwezige emails in "verzonden" (let wel : die is 4, niet 5 !!!!)
Krijg je zo'n lijst, dan kan, in een volgende stap, die onder voorwaarden gewist worden

ub email_verwijderen()
   c00 = "'franszenhangoren@gmail.com'"
   For Each it In CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(4).Items   '4=verzonden
      Range("A" & Rows.Count).End(xlUp).Offset(1).Resize(, 3).Value = Array(it.To, it.sendon, it.Subject)   'naar je tabblad geadresseerde, datum en onderwerp wegschrijven
      If False Then it.Delete                    'straks onder voorwaarden wissen
   Next
End Sub

 

[HSV]

@cow18,

Bij mij is het gewoon 5 net als op de site van @snb.

5.2.3 Verzonden email verwijderen
Sub email_verzonden_verwijderen()
c00 = "controle"

CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(5).Items(c00).Delete
End Sub

Sub email_verwijderen()
c00 = "'annemie hendrix'"
 For Each it In CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(5).Items
  'MsgBox it.Subject
  'MsgBox it.To
 If LCase(it.To) = c00 Then it.Delete
Next
End Sub

Maar zo te zien werkt @SUVERMO met Gmail.

 

[cow18]

heb ik dat nu zo verkeerd gelezen, in #1 was er sprake van verzonden emails

al hoewel, als ik nu het knipsel bekijk, dan zou ik zeggen dat de commentaar wat te hoog staat tov. de tekst links, sorry, 't is 5.
Ik kon niet testen, ik heb noch outlook noch gmail

 

[SUVERMO]

de code van #7 maakt geen lijst
de macro in excel verstuurt met outlook, prive gebruik ik Gmail

 

[HSV]

@cow18,

De lijnen op de site liggen niet op gelijke hoogte.
De uitleg achter de apostrof ligt iets hoger dan het onderwerp. :d

 

[cow18]

@HSV, daar kwam ik net achter,

@suvermo, verander in mijn voorstel #7, de 4 door een 5 en probeer het nog een keer.
Nu zou je een lijst met alle emails uit "verzonden" moeten krijgen.
Kijk dan in de eerste kolom hoe het emailadres er werkelijk uitziet (met of zonder ')en dan kan je (met een combinatie van voorwaarden) je emails verwijderen in de volgende regel

 

[SUVERMO]

heb de 4 door een 5 vervangen, dan geeft dit foutmelding, zie plaatje

Sub mail_verwijderen()

   c00 = "'franszenhangoren@gmail.com'"
   For Each it In CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(5).Items   '4=verzonden
      Range("A" & Rows.Count).End(xlUp).Offset(1).Resize(, 3).Value = Array(it.To, it.sendon, it.Subject)   'naar je tabblad geadresseerde, datum en onderwerp wegschrijven
      If False Then it.Delete                    'straks onder voorwaarden wissen
   Next
   
End Sub

 

[HSV]

Klein foutje van Bart.

it.sendon

moet zijn

it.senton

 

[cow18]

"On error" is vloeken in de kerk, symptoonbestrijding ipv. de echte oorzaak aan te pakken, maar omdat ik nu niet over je schouder kan meekijken ... .
Begin alvast op een leeg tabblad en zeg me even het resultaat

Sub email_verwijderen()
   c00 = "'franszenhangoren@gmail.com'"
   For Each it In CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(5).Items   '4=verzonden
      On Error Resume Next
      With Range("A" & Rows.Count).End(xlUp).Offset(1)
         .Value = "foutje"
         .Value = it.To
         .Offset(, 1).Value = it.sendon
         .Offset(, 2).Value = it.Subject         'naar je tabblad geadresseerde, datum en onderwerp wegschrijven
      End With
      On Error GoTo 0
      If False Then it.Delete                    'straks onder voorwaarden wissen
   Next
End Sub

 

[SUVERMO]

mogelijk is het eenvoudiger om in de macro die de e-mails verstuurd een voorwaarde te maken die de opdracht heeft om de e-mail naar een bepaald adres te verwijderen. Zou dat kunnen?

hieronder een deel dan de macro

.To = E_MAILADRES
        .CC = CC_E_MAILADRES
        .Subject = E_MAILONDERWERP
        .HTMLBody = RangetoHTML(Sheets("E_mail").Range("E_MAILTEKST"))
        .Send

 

[SUVERMO]

Klein foutje van Bart.

it.sendon

moet zijn

it.senton

nu krijg ik wel lijst, ga nu naar #15 kijken en testen

 

[cow18]

zet anders achter de ".send" op de volgende regel ".delete", het is het proberen waard.

Normaal bij een send gaat die in je "post uit" en eens verzonden naar "verzonden".
Vermoedelijk zal er dus een time-out, een pauze er tussen zitten, anders verwijder je hem nog voor hij verzonden is.
2e probleem is, dat je vermoedelijk in de verkeerde map bezig bent.

Het zal vermoedelijk niet aan de verwachtingen voldoen.

 

[SUVERMO]

wat bedoel jij met "dat je vermoedelijk in de verkeerde map bezig bent"

 

[cow18]

slaat je vraag op #16 ?
kijk naar de uitleg van SNB,
In jouw bijdrage staat er voorlopig niets over ".GetDefaultFolder(5)", dus kan je voorlopig niets deleten.
Je moet wachten tot hij in "verzonden" staat, dat kan binnen de seconde zijn, maar als je offline bent, kan dat even goed morgen zijn.
Je zou anders in diezelfde macro in een loopje gedurende 60 sec om de 5 sec tussen testen of die er staat en dan deleten.
Of je daar gelukkig zal van worden ???
Liever in 2 keer zou ik zeggen

Heb je met die correctie van HSV (sendon vervangen door senton) en mijn macro van #15 al iets in je tabblad staan ?