Ho fatto un db e ho inserito un campo testo dove inserisco l'email, ho fatto una routine eseguendola mi apre outlook inserendo l'email, vorrei che oltre all'email del destinatario mi inserisse l'oggetto e il corpo. Ho visto un esempio che riporto:
GENERALE SENDEMAIL
Sub SendEmail()
Dim oOutlook As Outlook.Application
Dim oEmailItem As MailItem
On Error Resume Next
Err.Clear
Set oOutlook = GetObject("oOutlook.Application")
If Err.Number <> 0 Then
Set oOutlook = New Outlook.Application
End If
Set oEmailItem = oOutlook.createitem(olmailitem)
With oOemailitem
.to = [email]
.Subject = "INVITO"
.Body = "ciao bella"
.display
End With
Set oEmailItem = Nothing
Set oOutlook = Nothing
End Sub
--------------
COMANDO SU CLICK
Private Sub Comando16_Click()
Call SendEmail
End Sub
Quando eseguo la routine non mi funziona, mi domandavo se qualcuno di voi sa dirmi se c'è qualche errore o variazione da fare.
Ringrazio anticipatamente
Rispondi quotando
