Programma sluiten VBA

[john4045]

Hallo,

In een vba script onder excel verstuur ik mail via outlook.

Ik open outlook dmv:

RetVal = Shell("C:\Program Files (x86)\Microsoft Office\Office12\Outlook.exe", 2)
en verstuur de mail.

Outlook blijft alleen openstaan. Als ik het script een aantal malen achter elkaar uitvoer, word telekens outlook opnieuw opgestart en niet afgesloten.

Hoe kan ik er voorzorgen dat nadat de mail verstuurd is outlook wordt afgesloten.

 

[city guy]

Hi,
uit mijn zoektocht maak ik op dat het gebruik van de shell in deze situatie niet de makkelijkste is, tenzij je een alt-f4 naar outlook weet te sturen.

Ik zou hier eens rondkijken en in het bijzonder op MSDN op deze pagina

 

[ExcelAmateur]

john4045,

Kijk eens of je hier wat mee kunt, heb ik uit een ander programma gehaald.

With Destwb
        .SaveAs TempFilePath & TempFileName & FileExtStr, _
                FileFormat:=FileFormatNum
        On Error Resume Next
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
        With OutMail
            .To = strto
            .CC = ""
            .BCC = ""
            .Subject = "Overzicht " & Format(Now, "yyyy")
            .Body = "Wijzig deze boodschap"
            .Attachments.Add (TempFilePath & TempFileName & FileExtStr)
            '.Send
            .Display
        End With
        On Error GoTo 0
        .Close SaveChanges:=False
    End With

 

[ExcelAmateur]

john4045,


Je kunt anders ook even hier kijken, net gevonden.

 

[john4045]

Hallo ExcelAmateur,

Jouw voorbeeld werkt met een temp file, die aangemaakt wordt (?), verstuurd wordt en vervolgens verwijdert.

Dit ben ik niet nodig, ik maak een HTML body met behulp van een aantal cellen uit excel, en wil deze gaan verzenden.

RetVal = Shell("C:\Program Files (x86)\Microsoft Office\Office12\Outlook.exe", 2)
'RetVal = Shell("C:\Program Files\Microsoft Office\Office12\Outlook.exe", 2)

On Error Resume Next

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

With OutMail
.To = "mail@mijn_adres.nl"
.CC = ""
.BCC = ""
.Subject = "Voorrraad bestelling: " & A
.HTMLBody = W
.Send
End With

On Error GoTo 0

Set OutMail = Nothing
Set OutApp = Nothing

Het verzenden van de HTML body werkt goed, outlook wordt ten alle tijden geopend (ook als het al open is), maar niet gesloten.

 

[ExcelAmateur]

john4045,

Sorry ik ben daar niet in thuis maar had dit opgezocht in de Helpmij zoekmachine.
Kan je dus niet verder helpen.
Suc6