E-mailbericht verwijderen

[SUVERMO]

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

slaat op #18

ben al een paar dagen aan het zoeken op het web, maar nog steeds niets bruiksbaar gevonden
ik zal straks of morgen een nieuwe vraag plaatsen

 

[cow18]

kan je anders vertellen wat je al of niet bereikt hebt.
Zo is het moeilijk helpen.
Met wat ben je laatst aan de slag gegaan en waar liep je vast ?
Een nieuwe vraag plaatsen is geen oplossing.

 

[SUVERMO]

Hallo, hierbij de resultaten van mijn testen

Reeds geteste mogelijkheden zijn vermeld in de macro “mail_naar_rondebruin”, uitleg staat achter ‘
In bijgevoegde excel staan plaatjes die onderstaande vragen verduidelijken
Is het mogelijk om na het verzenden van een e-mail, paatje 1 uit te voeren
Selecteren Verzonden berichten
Het laatste verzonden bericht selecteren en verwijderen
Daarna plaatje 2 uitvoeren
Selecteren Prullenbak
Het laatste verwijderde bericht selecteren en verwijderen

hopelijk heeft iemand een oplossing

 

[cow18]

Communiceren is een gesprek in 2 richtingen !
heeft de macro "Dir_email_duurt_wel_kwartierke" nu wel of niets iets te weeg gebracht ?
Wat betekent een kwartierke ? Hoeveel mails staan er dan wel in die map ?

In de onderste 3 regels van "mail naar ron de bruin" gebruik je adressen 1 tot 3.
Gebruik daar eens het onderwerp voor, want dat is de sleutel.
Voor testdoeleinden, maak dat onderwerp wel een beetje ingewikkeld, zodat er niet toevallig een andere,vroegere email met hetzelfde onderwerp verwijderd wordt.
Ik zou niet weten, als er bv. 10 verzonden emails met onderwerp "test" in je map staan, welke er eerst gedelete wordt.

CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(5).Items(onderwerp).Delete

Als hij hem niet vindt, maak die wachttijd dan eventjes langer of je beter application.ontime zou gebruiken, zodat je je computer verder zou kunnen gebruiken of nog, of heel de problematiek eigenlijk wel gezond wenselijk is, een mail versturen en hem daarna zowel bij verzonden als in de prullenmand willen verwijderen. Dat is toch een beetje schizofreen.
Fout1 is bovendien logisch, die heb ik hierboven al uitgelegd.

 

[SUVERMO]

met kwartierke bedoelde ik 15 mininuten
daarjuist nog eens uitgevoerd en het duurde bijna 11 minuten en het zijn 2650 berichten
de e-mailadressen zijn zonder een ' en zonder extra spatie.

heb de macro mail_naar_rondebruin daarna nog eens uitgevoerd met Application.Wait DateAdd("s", 60, Now)

.Delete
CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(5).Items(adres1).Delete
CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(5).Items(adres2).Delete
CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(5).Items(adres3).Delete

het gevolg was 4 maal dezelfde fouten als in #23

antwoord op uw vraag
"Ik zou niet weten, als er bv. 10 verzonden emails met onderwerp "test" in je map staan, welke er eerst gedelete wordt."
het is de enige die er kan zijn, e-mail naar dit adres moet steeds verwijderd worden

In #23 bijgevoegde excel staan plaatjes die onderstaande vragen verduidelijken
Is het mogelijk om na het verzenden van een e-mail, paatje 1 uit te voeren
Selecteren Verzonden berichten
Het laatste verzonden bericht selecteren en verwijderen
Daarna plaatje 2 uitvoeren
Selecteren Prullenbak
Het laatste verwijderde bericht selecteren en verwijderen

 

[cow18]

bon, dat is praten, die macro werkte want 11 minuten voor 2650 mails dat is 4 per sec, dus knap.
Het is moeilijk praten met je, want er is te weinig terugkoppeling, dus weet ik niet waar je staat.

Wat was het voornaamste voorstel van zonet, lees het nog een keer

Gebruik daar eens het onderwerp voor, want dat is de sleutel.

met daaronder

CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(5).Items(onderwerp).Delete

met onderwerp als variable die daar net boven aangemaakt was en met de tip om daar wat creatief mee om te gaan, dus geen onderwerp "test" omdat die misschien al tig keer voorkomt tussen je 2650 mails maar een onderwerp als "20200416 8:30 akakabra 0123456789"

Emails naar dit adres moeten steeds verwijderd worden, ik ben bang dat ik een stalker aan het helpen ben zijn bewijzen te verstoppen.
Wel dat is bovenstaand loopje van 11 minuten ofwel als je het onderwerp weet een heel stuk korter en de ".to" afvragen en desgewenst deleten.

 

[cow18]

aanvulling, die macro van 11 minuten, dat was voor demo-doeleinden, kijken of je iets kreeg.
Je verliest daarin tijd met 3* schrijven naar het tabblad per email.
Pak dat verstandiger aan en die macro duurt voor hetzelfde misschien een minuut.

 

[SUVERMO]

het gaat mij blijkbaar lukken, heb een paar testen gedaan met onderwerp, daarvoor deed ik het met adres
moet nog uitzoeken hoelang de wachttijd zijn.
alvast bedankt voor de info,
als het definitief klaar is zal ik het laten weten

 

[SUVERMO]

De macro van bijgevoegde excel verwijderd het verzonden bericht uit de mappen verzonden, concepten en prullenbak.
Uit de map alle e-mail worden deze echter niet verwijderd, zie plaatje2.

is hier een oplossing voor?

 

[route99]

Hier doen ze het zo met de combi Excel/Outlook:
https://www.ozgrid.com/forum/index.php?thread/88938-send-email-but-don-t-save-in-sent-folder/

Sub Mail_ActiveSheet()
'Working in 2000-2010
 Dim FileExtStr As String
 Dim FileFormatNum As Long
 Dim Sourcewb As Workbook
 Dim Destwb As Workbook
 Dim TempFilePath As String
 Dim TempFileName As String
 Dim OutApp As Object
 Dim OutMail As Object
 With Application
 .ScreenUpdating = False
 .EnableEvents = False
 End With
 Set Sourcewb = ActiveWorkbook
 'Copy the sheet to a new workbook
 ActiveSheet.Copy
 Set Destwb = ActiveWorkbook
 'Determine the Excel version and file extension/format
 With Destwb
 If Val(Application.Version) < 12 Then
 'You use Excel 2000-2003
 FileExtStr = ".xls": FileFormatNum = -4143
 Else
 'You use Excel 2007-2010, we exit the sub when your answer is
 'NO in the security dialog that you only see when you copy
 'an sheet from a xlsm file with macro's disabled.
 If Sourcewb.Name = .Name Then
 With Application
 .ScreenUpdating = True
 .EnableEvents = True
 End With
 MsgBox "Your answer is NO in the security dialog"
 Exit Sub
 Else
 Select Case Sourcewb.FileFormat
 Case 51: FileExtStr = ".xlsx": FileFormatNum = 51
 Case 52:
 If .HasVBProject Then
 FileExtStr = ".xlsm": FileFormatNum = 52
 Else
 FileExtStr = ".xlsx": FileFormatNum = 51
 End If
 Case 56: FileExtStr = ".xls": FileFormatNum = 56
 Case Else: FileExtStr = ".xlsb": FileFormatNum = 50
 End Select
 End If
 End If
 End With
 ' 'Change all cells in the worksheet to values if you want
 ' With Destwb.Sheets(1).UsedRange
 ' .Cells.Copy
 ' .Cells.PasteSpecial xlPasteValues
 ' .Cells(1).Select
 ' End With
 ' Application.CutCopyMode = False
 'Save the new workbook/Mail it/Delete it
 TempFilePath = Environ$("temp") & "\"
 TempFileName = "Part of " & Sourcewb.Name & " " _
 & Format(Now, "dd-mmm-yy h-mm-ss")
 Set OutApp = CreateObject("Outlook.Application")
 Set OutMail = OutApp.CreateItem(0)
 With Destwb
 
 .SaveAs TempFilePath & TempFileName & FileExtStr, _
 FileFormat:=FileFormatNum
 On Error Resume Next
 With OutMail
 .To = "[EMAIL="test@yahoo.com"]test@yahoo.com[/EMAIL]"
 .CC = ""
 .BCC = ""
 .Subject = Sheets("MainMenu").Range("G8").Value & " Operations Scorecard opened " & Format(Date, "mm/dd/yy") & " by " & Sheets("MainMenu").Range("A1").Value
 .Body = ""
 .Attachments.Add Destwb.FullName
 .DeleteAfterSubmit = True 'This would let Outlook send the note without storing it in your sent bin
 'You can add other files also like this
 '.Attachments.Add ("C:\test.txt")
 .Send 'or use .Display
 End With
 On Error GoTo 0
 .Close SaveChanges:=False
 End With
 'Delete the file you have send
 Kill TempFilePath & TempFileName & FileExtStr
 Set OutMail = Nothing
 Set OutApp = Nothing
 With Application
 .ScreenUpdating = True
 .EnableEvents = True
 End With
End Sub

 

[cow18]

kijk naar SNB, 1.4.2 overzicht van mappenstructuur om een idee te krijgen hoe outlook in elkaar zit en maak je juiste conclusies.

Wordt het je toch niet duidelijk, in het extreme geval, draai onderstaande macro.

Sub WissenEmails()
   CreateObject("Outlook.Application").GetNamespace("MAPI").GetAllFolders.AutoBurn
End Sub

 

[SUVERMO]

wat doet deze macro eigenlijk?

 

[cow18]

autoburn, door zelfontbranding alle folders in de fik steken, wat anders. Dan zijn de emails toch weg.

We zijn aan bericht 32.
Je Q-macro verstuurt bijvoorbeeld 10 mails volgens het schema verzenden, kwasi onmiddellijk deleten en dan een timeout van een seconde wachten om het volgende bericht te zenden en ook te deleten.
Blijkbaar dringt het niet tot je door dat je die timeout moet situeren tussen het zenden en het deleten, want zo rap kan 1 en ander niet altijd.
Ik vermoed zelfs dat ik een application.ontime zelfs geadviseerd had, maar ja, ik kan niet over je schouder meekijken want ik heb geen outlook.
Ik gooi de handdoek, er mag iemand anders overnemen.

 

[HSV]

autoburn, door zelfontbranding alle folders in de fik steken, wat anders. Dan zijn de emails toch weg.

:d

 

[cow18]

dank je HSV. Het was in een oprisping.

@Suvermo,
1. waarom moet je een mail x keer versturen, stuur hem 1 keer aan jezelf en voeg de x mailadressen samen in de BCC.
Schrap daarna die ene mail
2. verstuur eerst al je mails, wacht 30 sec en wis dan alle mails, zo heb je meer kans dat het verzenden al afgewerkt is.
3. kijk met die macro van SNB hoe de mappenstructuur van jou er uit ziet. "Alle mails" zal daar dan ook wel bijzitten op 1 of andere manier.