Bonjour,
En consultant le newsgroupe, un message m'a interesser - envoyer
automatiquement une message (sans validation).
J'ai repris le code mais voila, un message me dis : "Erreur de compilation -
Type défini par l'utilisateur non défini "
J'ai access 2002 et access souligne la ligen Dim Ol_App As New
Outlook.Application du code suivant :
Private Sub messages_Click()
Dim Ol_App As New Outlook.Application
Dim Ol_Item As Outlook.MailItem
If Me.Body <> "" Then
Set Ol_Item = Ol_App.CreateItem(olMailItem)
With Ol_Item
.To = xxxx@ZZZ.fr
.subject = "Pb sous SIFI"
.Body = Me.Body
.Save
.send
End With
Set Ol_Item = Nothing
Set Ol_App = Nothing
Else
MsgBox " Merci de décrire le problème"
End If
End Sub
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Gafish
Bonjour,
Il faut que dans ton module, tu ailles dans Outils...References et que tu coches la référence à Microsoft Outlook.
Arnaud
sab wrote:
Bonjour, En consultant le newsgroupe, un message m'a interesser - envoyer automatiquement une message (sans validation). J'ai repris le code mais voila, un message me dis : "Erreur de compilation - Type défini par l'utilisateur non défini "
J'ai access 2002 et access souligne la ligen Dim Ol_App As New Outlook.Application du code suivant :
Private Sub messages_Click() Dim Ol_App As New Outlook.Application Dim Ol_Item As Outlook.MailItem
If Me.Body <> "" Then Set Ol_Item = Ol_App.CreateItem(olMailItem) With Ol_Item .To = .subject = "Pb sous SIFI" .Body = Me.Body .Save .send End With
Set Ol_Item = Nothing Set Ol_App = Nothing Else MsgBox " Merci de décrire le problème" End If End Sub
Pouvez vous m'aider ?
Merci beaucoup pour votre aide
Bonjour,
Il faut que dans ton module, tu ailles dans Outils...References et que tu
coches la référence à Microsoft Outlook.
Arnaud
sab wrote:
Bonjour,
En consultant le newsgroupe, un message m'a interesser - envoyer
automatiquement une message (sans validation).
J'ai repris le code mais voila, un message me dis : "Erreur de
compilation - Type défini par l'utilisateur non défini "
J'ai access 2002 et access souligne la ligen Dim Ol_App As New
Outlook.Application du code suivant :
Private Sub messages_Click()
Dim Ol_App As New Outlook.Application
Dim Ol_Item As Outlook.MailItem
If Me.Body <> "" Then
Set Ol_Item = Ol_App.CreateItem(olMailItem)
With Ol_Item
.To = xxxx@ZZZ.fr
.subject = "Pb sous SIFI"
.Body = Me.Body
.Save
.send
End With
Set Ol_Item = Nothing
Set Ol_App = Nothing
Else
MsgBox " Merci de décrire le problème"
End If
End Sub
Il faut que dans ton module, tu ailles dans Outils...References et que tu coches la référence à Microsoft Outlook.
Arnaud
sab wrote:
Bonjour, En consultant le newsgroupe, un message m'a interesser - envoyer automatiquement une message (sans validation). J'ai repris le code mais voila, un message me dis : "Erreur de compilation - Type défini par l'utilisateur non défini "
J'ai access 2002 et access souligne la ligen Dim Ol_App As New Outlook.Application du code suivant :
Private Sub messages_Click() Dim Ol_App As New Outlook.Application Dim Ol_Item As Outlook.MailItem
If Me.Body <> "" Then Set Ol_Item = Ol_App.CreateItem(olMailItem) With Ol_Item .To = .subject = "Pb sous SIFI" .Body = Me.Body .Save .send End With
Set Ol_Item = Nothing Set Ol_App = Nothing Else MsgBox " Merci de décrire le problème" End If End Sub
