VBA macro verzend mail via Outlook, Outlook telkens op tilt

[Vaurien]

Ik heb voor de administrateur van de vereniging een automatisch verzendende macro gemaakt in Excel op mijn pc (Win 8.1) loopt het allemaal naar wens.
Maar op de pc van de Admin niet. Deze heeft Viste Home in gebruik en de officiële Outlook van win 2010.
Als nu de mail is verstuurd wat goed gaat is daarna outlook vast gelopen en moet de pc opnieuw opgestart worden.
Dat is natuurlijk niet de bedoeling.
Wie heeft hier een remedie voor.

 

[edmoor]

Wellicht handig als je even laat zien wat je hebt gemaakt.

 

[Vaurien]

VBA Excel project

Bekijk bijlage VOORBEELD.xls

Hier is het hele bestand waar je zelf aan mee hebt gewerkt.

De mail macro is in het echt nu achter de save opdracht geplaats, omdat ik anders de nog niet opgeslagen versie aan het verzenden was.
Ik hoop dat het beantwoorden van je vraag wat of ik nu precies had gemaakt, nu geen overkill is en je het er maar bij laat zitten.
Je zult nu echt even in de macro's moeten duiken.

Maar ik heb meer het idee dat het aan Vista in combinatie met Outlook ligt.

Maar mijn complimenten voor je actieve en positieve rol op dit forum.

 

[edmoor]

De administrateur heeft ook deze map?
"D:\EXCEL\Klaverjasvereniging\Seizoen 2015-2016"

 

[Vaurien]

Ja exact hetzelfde boomstructuur en de bestanden.

Nu heb ik al jouw vragen beantwoordt, maar nu wacht ik echt op een reactie.
Wat hadden die vragen anders voor een zin, als je er verder niet meer op terug komt.

 

[Vaurien]

Ik heb tot op heden nog geen antwoord op deze vraag.

 

[edmoor]

Haal die On Error Resume Next er eens uit om te zien of er zich fouten voordoen die door die regel niet worden opgevangen:

Sub MAIL()
    'Nu wordt het bestand verzonden per e-mail
    Dim OutApp As Object
    Dim OutMail As Object

    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)

    [COLOR="#FF0000"]On Error Resume Next[/COLOR]
    With OutMail
        .to = "VaurienH28385@gmail.com"
        '.CC = "invulster zelf als copy en backup "
        .BCC = ""
        .Subject = "Uitslag 2015/2016.xls"
        .Body = "Hallo Vaurien," & vbLf & "Hier is de uitslag," & vbLf & "Groetjes Nel"
        .Attachments.Add ActiveWorkbook.FullName
        .Send
    End With
    On Error GoTo 0

    Set OutMail = Nothing
    Set OutApp = Nothing

   MAILVERZONDEN.Show
   
End Sub

 

[Vaurien]

Ik ben nu tot eind september met vakantie.
In oktober zal ik het eens uit proberen.

 

[Mik Zjegger]

Verplaatst van Win Vista naar deze sectie.

 

[snb]

Als het bestand nog niet is opgeslagen ontstaat er een foutmelding bij activeworkbook.fullname:

Mijn voorkeur:

Sub M_snb()
    if activeworkbook.saved=false then exit sub
    
    with CreateObject("Outlook.Application").CreateItem(0)
        .to = "VaurienH28385@gmail.com"
        .Subject = "Uitslag 2015/2016"
        .Body = "Hallo Vaurien," & vbLf & "Hier is de uitslag," & vbLf & "Groetjes Nel"
        .Attachments.Add ActiveWorkbook.FullName
        .Send
    End With
End Sub

 

[Vaurien]

De save routine is in de laatste versie inderdaad voor het verzenden van de Outlook mail geplaatst.
Dit mede door het feit dat anders een oudere niet gesavede versie werd verzonden.