aprire la finestra di outlook nuova mail

[mario rossi]

con questo codice creo una nuova mail di outlook, vorrei che si apprisse in anteprima e sia io a cliccare INVIA alla fine ma non si apre l''anteprima del messaggio, è il comando display per mostrare l'anteprima?

Set OutlookApp = New Outlook.Application
Set MItem = OutlookApp.CreateItem(olMailItem)
With MItem
.to = destinatario
'.CC = sCC
'.BCC = ""

.Subject = Nz(oggetto, "")
.Body = Nz(testo, "")
.Attachments.Add Nz(allegato, "")

.Activate
.display
'.Send
End With

Set OutlookApp = Nothing

[mario rossi]

non so il motivo, e mi sembra un codice simile a quello sopra
sta di fatto che il codice che segue apre correttamente il messaggio in anteprima prima di inviare la mail manualmente cliccando sul tasto "invia"

Dim NewMail As Object
Set NewMail = CreateObject("Outlook.Application").CreateItem(oMailItem)
With NewMail
.To = destinatario
.Subject = oggetto
.Body = testo
' .CC =
If allegato <> "" Then
.Attachments.Add Nz(allegato, "")
End If
.display
'.Send
End With

[Gabry69]

nel primo codice probabilmente l'applicazione che fai partire non è visibile
se aggiungi
OutlookApp.visible=true
dovrebbe funzionare come l'altro

[mario rossi]

ah ok grazie.