depuis excel, j'utilise Outlook automation pour envoyer des email.
J'aimerai bien que ce soit complétement transparent pour l'utilisateur
mais pour chaque mail outlook génère une boite de dialogue pour confirmer
l'envoi.
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
michdenis
Bonjour Philippe,
Une réponse que je viens de formuler ...
Fonctionne avec Windows Xp, Windows 2000 pro. mais pas avec windows 98.
'---------------------------- Private Sub CommandButton1_Click() ' De LL
With CreateObject("CDO.Message") .From = "" .To = "" .CC = "" .BCC = "" .Subject = "MySubject" .TextBody = "MyMessage" .AddAttachment "C:MyDirMyFile.xls" .Send End With
End Sub
Salutations!
"Philippe Pons" a écrit dans le message de news: Salut,
depuis excel, j'utilise Outlook automation pour envoyer des email. J'aimerai bien que ce soit complétement transparent pour l'utilisateur mais pour chaque mail outlook génère une boite de dialogue pour confirmer l'envoi.
Comment peut on passer outre cette boite?
Merci d'avance,
Philippe
Bonjour Philippe,
Une réponse que je viens de formuler ...
Fonctionne avec Windows Xp, Windows 2000 pro. mais pas avec windows 98.
'----------------------------
Private Sub CommandButton1_Click() ' De LL
With CreateObject("CDO.Message")
.From = "mymail@myprovider.fr"
.To = "mycontact@hisprovider.com"
.CC = "mywife@herprovider.com"
.BCC = "myaddress@myprovider.com"
.Subject = "MySubject"
.TextBody = "MyMessage"
.AddAttachment "C:MyDirMyFile.xls"
.Send
End With
End Sub
Salutations!
"Philippe Pons" <Philippe.Pons19_nospam@wanadoo.fr> a écrit dans le message de news: OuJU0NdnFHA.3448@TK2MSFTNGP12.phx.gbl...
Salut,
depuis excel, j'utilise Outlook automation pour envoyer des email.
J'aimerai bien que ce soit complétement transparent pour l'utilisateur
mais pour chaque mail outlook génère une boite de dialogue pour confirmer
l'envoi.
Fonctionne avec Windows Xp, Windows 2000 pro. mais pas avec windows 98.
'---------------------------- Private Sub CommandButton1_Click() ' De LL
With CreateObject("CDO.Message") .From = "" .To = "" .CC = "" .BCC = "" .Subject = "MySubject" .TextBody = "MyMessage" .AddAttachment "C:MyDirMyFile.xls" .Send End With
End Sub
Salutations!
"Philippe Pons" a écrit dans le message de news: Salut,
depuis excel, j'utilise Outlook automation pour envoyer des email. J'aimerai bien que ce soit complétement transparent pour l'utilisateur mais pour chaque mail outlook génère une boite de dialogue pour confirmer l'envoi.
Comment peut on passer outre cette boite?
Merci d'avance,
Philippe
Philippe Pons
Merci pour ta réponse. Faut il installer qqchose de particulier pour utiliser les objets CDO?
Cordialement.
"michdenis" a écrit dans le message de news:
Bonjour Philippe,
Une réponse que je viens de formuler ...
Fonctionne avec Windows Xp, Windows 2000 pro. mais pas avec windows 98.
'---------------------------- Private Sub CommandButton1_Click() ' De LL
With CreateObject("CDO.Message") .From = "" .To = "" .CC = "" .BCC = "" .Subject = "MySubject" .TextBody = "MyMessage" .AddAttachment "C:MyDirMyFile.xls" .Send End With
End Sub
Salutations!
"Philippe Pons" a écrit dans le message de news:
Salut,
depuis excel, j'utilise Outlook automation pour envoyer des email. J'aimerai bien que ce soit complétement transparent pour l'utilisateur mais pour chaque mail outlook génère une boite de dialogue pour confirmer l'envoi.
Comment peut on passer outre cette boite?
Merci d'avance,
Philippe
Merci pour ta réponse.
Faut il installer qqchose de particulier pour utiliser les objets CDO?
Cordialement.
"michdenis" <michdenis@hotmail.com> a écrit dans le message de
news:u0JAZRdnFHA.2156@TK2MSFTNGP14.phx.gbl...
Bonjour Philippe,
Une réponse que je viens de formuler ...
Fonctionne avec Windows Xp, Windows 2000 pro. mais pas avec windows 98.
'----------------------------
Private Sub CommandButton1_Click() ' De LL
With CreateObject("CDO.Message")
.From = "mymail@myprovider.fr"
.To = "mycontact@hisprovider.com"
.CC = "mywife@herprovider.com"
.BCC = "myaddress@myprovider.com"
.Subject = "MySubject"
.TextBody = "MyMessage"
.AddAttachment "C:MyDirMyFile.xls"
.Send
End With
End Sub
Salutations!
"Philippe Pons" <Philippe.Pons19_nospam@wanadoo.fr> a écrit dans le
message de news: OuJU0NdnFHA.3448@TK2MSFTNGP12.phx.gbl...
Salut,
depuis excel, j'utilise Outlook automation pour envoyer des email.
J'aimerai bien que ce soit complétement transparent pour l'utilisateur
mais pour chaque mail outlook génère une boite de dialogue pour confirmer
l'envoi.
Merci pour ta réponse. Faut il installer qqchose de particulier pour utiliser les objets CDO?
Cordialement.
"michdenis" a écrit dans le message de news:
Bonjour Philippe,
Une réponse que je viens de formuler ...
Fonctionne avec Windows Xp, Windows 2000 pro. mais pas avec windows 98.
'---------------------------- Private Sub CommandButton1_Click() ' De LL
With CreateObject("CDO.Message") .From = "" .To = "" .CC = "" .BCC = "" .Subject = "MySubject" .TextBody = "MyMessage" .AddAttachment "C:MyDirMyFile.xls" .Send End With
End Sub
Salutations!
"Philippe Pons" a écrit dans le message de news:
Salut,
depuis excel, j'utilise Outlook automation pour envoyer des email. J'aimerai bien que ce soit complétement transparent pour l'utilisateur mais pour chaque mail outlook génère une boite de dialogue pour confirmer l'envoi.
Comment peut on passer outre cette boite?
Merci d'avance,
Philippe
michdenis
Pas si tu as les versions de Windows indiquées ...
Salutations!
"Philippe Pons" a écrit dans le message de news: Merci pour ta réponse. Faut il installer qqchose de particulier pour utiliser les objets CDO?
Cordialement.
"michdenis" a écrit dans le message de news:
Bonjour Philippe,
Une réponse que je viens de formuler ...
Fonctionne avec Windows Xp, Windows 2000 pro. mais pas avec windows 98.
'---------------------------- Private Sub CommandButton1_Click() ' De LL
With CreateObject("CDO.Message") .From = "" .To = "" .CC = "" .BCC = "" .Subject = "MySubject" .TextBody = "MyMessage" .AddAttachment "C:MyDirMyFile.xls" .Send End With
End Sub
Salutations!
"Philippe Pons" a écrit dans le message de news:
Salut,
depuis excel, j'utilise Outlook automation pour envoyer des email. J'aimerai bien que ce soit complétement transparent pour l'utilisateur mais pour chaque mail outlook génère une boite de dialogue pour confirmer l'envoi.
Comment peut on passer outre cette boite?
Merci d'avance,
Philippe
Pas si tu as les versions de Windows indiquées ...
Salutations!
"Philippe Pons" <Philippe.Pons19_nospam@wanadoo.fr> a écrit dans le message de news: ekmRUddnFHA.2580@TK2MSFTNGP09.phx.gbl...
Merci pour ta réponse.
Faut il installer qqchose de particulier pour utiliser les objets CDO?
Cordialement.
"michdenis" <michdenis@hotmail.com> a écrit dans le message de
news:u0JAZRdnFHA.2156@TK2MSFTNGP14.phx.gbl...
Bonjour Philippe,
Une réponse que je viens de formuler ...
Fonctionne avec Windows Xp, Windows 2000 pro. mais pas avec windows 98.
'----------------------------
Private Sub CommandButton1_Click() ' De LL
With CreateObject("CDO.Message")
.From = "mymail@myprovider.fr"
.To = "mycontact@hisprovider.com"
.CC = "mywife@herprovider.com"
.BCC = "myaddress@myprovider.com"
.Subject = "MySubject"
.TextBody = "MyMessage"
.AddAttachment "C:MyDirMyFile.xls"
.Send
End With
End Sub
Salutations!
"Philippe Pons" <Philippe.Pons19_nospam@wanadoo.fr> a écrit dans le
message de news: OuJU0NdnFHA.3448@TK2MSFTNGP12.phx.gbl...
Salut,
depuis excel, j'utilise Outlook automation pour envoyer des email.
J'aimerai bien que ce soit complétement transparent pour l'utilisateur
mais pour chaque mail outlook génère une boite de dialogue pour confirmer
l'envoi.
Pas si tu as les versions de Windows indiquées ...
Salutations!
"Philippe Pons" a écrit dans le message de news: Merci pour ta réponse. Faut il installer qqchose de particulier pour utiliser les objets CDO?
Cordialement.
"michdenis" a écrit dans le message de news:
Bonjour Philippe,
Une réponse que je viens de formuler ...
Fonctionne avec Windows Xp, Windows 2000 pro. mais pas avec windows 98.
'---------------------------- Private Sub CommandButton1_Click() ' De LL
With CreateObject("CDO.Message") .From = "" .To = "" .CC = "" .BCC = "" .Subject = "MySubject" .TextBody = "MyMessage" .AddAttachment "C:MyDirMyFile.xls" .Send End With
End Sub
Salutations!
"Philippe Pons" a écrit dans le message de news:
Salut,
depuis excel, j'utilise Outlook automation pour envoyer des email. J'aimerai bien que ce soit complétement transparent pour l'utilisateur mais pour chaque mail outlook génère une boite de dialogue pour confirmer l'envoi.
Comment peut on passer outre cette boite?
Merci d'avance,
Philippe
MPi
Salut,
Si tu n'as pas de fichier joint, tu peux utiliser L'API ShellExecute
Dans un module, tu déclare en Public. Dans une feuille il faut déclarer Private... toujours en entête de code après le Option Explicit, si c'est le cas...
Donc, la déclaration: Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal Hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Et pour l'appeler Dim Tmp As Long Tmp = ShellExecute(0, "Open", "mailto:" & AQui & "?Subject=LeSujet&Body=LeMessage", 0&, 0&, 1)
Il s'agit de changer AQui, LeSujet et LeMessage pour les valeurs que tu veux
Michel
"Philippe Pons" a écrit dans le message de news:
Salut,
depuis excel, j'utilise Outlook automation pour envoyer des email. J'aimerai bien que ce soit complétement transparent pour l'utilisateur mais pour chaque mail outlook génère une boite de dialogue pour confirmer l'envoi.
Comment peut on passer outre cette boite?
Merci d'avance,
Philippe
Salut,
Si tu n'as pas de fichier joint, tu peux utiliser L'API ShellExecute
Dans un module, tu déclare en Public. Dans une feuille il faut déclarer
Private... toujours en entête de code après le Option Explicit, si c'est le
cas...
Donc, la déclaration:
Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal
Hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal
lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long)
As Long
Et pour l'appeler
Dim Tmp As Long
Tmp = ShellExecute(0, "Open", "mailto:" & AQui &
"?Subject=LeSujet&Body=LeMessage", 0&, 0&, 1)
Il s'agit de changer AQui, LeSujet et LeMessage pour les valeurs que tu veux
Michel
"Philippe Pons" <Philippe.Pons19_nospam@wanadoo.fr> a écrit dans le message
de news:OuJU0NdnFHA.3448@TK2MSFTNGP12.phx.gbl...
Salut,
depuis excel, j'utilise Outlook automation pour envoyer des email.
J'aimerai bien que ce soit complétement transparent pour l'utilisateur
mais pour chaque mail outlook génère une boite de dialogue pour confirmer
l'envoi.
Si tu n'as pas de fichier joint, tu peux utiliser L'API ShellExecute
Dans un module, tu déclare en Public. Dans une feuille il faut déclarer Private... toujours en entête de code après le Option Explicit, si c'est le cas...
Donc, la déclaration: Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal Hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Et pour l'appeler Dim Tmp As Long Tmp = ShellExecute(0, "Open", "mailto:" & AQui & "?Subject=LeSujet&Body=LeMessage", 0&, 0&, 1)
Il s'agit de changer AQui, LeSujet et LeMessage pour les valeurs que tu veux
Michel
"Philippe Pons" a écrit dans le message de news:
Salut,
depuis excel, j'utilise Outlook automation pour envoyer des email. J'aimerai bien que ce soit complétement transparent pour l'utilisateur mais pour chaque mail outlook génère une boite de dialogue pour confirmer l'envoi.
