OVH Cloud OVH Cloud

Envoi d'une sheet dans le corps d'un mail

24 réponses
Avatar
Super
Bonjour,

J'ai vu dans le forum qu'il y avait beaucoup de littérature sur le sujet
avec un spécialiste avéré : Papou.

Moi, je souhaiterai envoyer un fichier avec ma worksheet dans le corps de
mon mail et non en document joint. Sur le net, j'ai beaucoup lu sur les
contrôles MAPI, mais truc très bête, je ne connais pas la référence à fournir
à mon débuggeur pour qu'il reconnaisse ces objets...
J'ai tenté de lui ajouter dans les références :
C:\Program Files\Common Files\System\Mapi\1033\msmapi32.DLL, mais il n'en
veut pas ("Can't add a reference to the specified file"...)

J'ai un exemple de code sous la main pris sur Excelabo, mais les objets ne
sont donc pas reconnus et je ne sais pas ce que session représente..

Sub mail_par_vba()

'réponse de H. S. le lundi 13 décembre 1999 13:06
'newsgroup : microsoft.public.fr.excel
'discussion : Envoi de mail à partir d'Xl

'RAJOUTER UNE REFERENCE AU CONTROLE MAPI

Dim myMessage As New MAPIMessages
Dim mySession As New MAPISession

mySession.UserName = "Hamard Stephane"
mySession.Password = "ZazaAsLesYeuxVertsSelonJ@C"
mySession.SignOn
myMessage.SessionID = mySession.SessionID


myMessage.Compose
myMessage.RecipAddress = "shamard@totoworld.fr"
myMessage.MsgSubject = "Resultat " & Format(Date, "dd/mm/yy")
myMessage.MsgNoteText = "Salut Zaza"
myMessage.AttachmentType = 0
myMessage.AttachmentName = "Fichier test"
myMessage.AttachmentPathName = "c:persotemptest.txt"
myMessage.ResolveName

On Error Resume Next
'Je n'arrive pas à intercepter la fermeture de la fenêtre...
'donc j'utilise la gestion d'erreur (pas très bon).
myMessage.Send True

mySession.SignOff
End Sub

10 réponses

1 2 3
Avatar
michdenis
Bonjour Super,

Voici comment faire :

Affiche la barre d'outils "Contrôle"

Tu cliques sur l'icône "Autres contrôles" de la barre d'outils "contrôle"

et dans la liste qu'excel te proposera, tu cliques sur :

" Microsoft Mapi Message Control "

et tu dessines le contrôle (icône) sur ta feuille.

En mode création, tu double-cliques sur l'icône et tu copies ta procédure entre le Sub et le End Sub.


Voilà ! En plus, cela fonctionne ! ;-))


Salutations!






"Super" a écrit dans le message de
news:
Bonjour,

J'ai vu dans le forum qu'il y avait beaucoup de littérature sur le sujet
avec un spécialiste avéré : Papou.

Moi, je souhaiterai envoyer un fichier avec ma worksheet dans le corps de
mon mail et non en document joint. Sur le net, j'ai beaucoup lu sur les
contrôles MAPI, mais truc très bête, je ne connais pas la référence à fournir
à mon débuggeur pour qu'il reconnaisse ces objets...
J'ai tenté de lui ajouter dans les références :
C:Program FilesCommon FilesSystemMapi1033msmapi32.DLL, mais il n'en
veut pas ("Can't add a reference to the specified file"...)

J'ai un exemple de code sous la main pris sur Excelabo, mais les objets ne
sont donc pas reconnus et je ne sais pas ce que session représente..

Sub mail_par_vba()

'réponse de H. S. le lundi 13 décembre 1999 13:06
'newsgroup : microsoft.public.fr.excel
'discussion : Envoi de mail à partir d'Xl

'RAJOUTER UNE REFERENCE AU CONTROLE MAPI

Dim myMessage As New MAPIMessages
Dim mySession As New MAPISession

mySession.UserName = "Hamard Stephane"
mySession.Password = ""
mySession.SignOn
myMessage.SessionID = mySession.SessionID


myMessage.Compose
myMessage.RecipAddress = ""
myMessage.MsgSubject = "Resultat " & Format(Date, "dd/mm/yy")
myMessage.MsgNoteText = "Salut Zaza"
myMessage.AttachmentType = 0
myMessage.AttachmentName = "Fichier test"
myMessage.AttachmentPathName = "c:persotemptest.txt"
myMessage.ResolveName

On Error Resume Next
'Je n'arrive pas à intercepter la fermeture de la fenêtre...
'donc j'utilise la gestion d'erreur (pas très bon).
myMessage.Send True

mySession.SignOff
End Sub
Avatar
sabatier
bizarre, denis, chez moi, si je veux dessiner le contrôle sur la feuille, ça
me dit "impossible d'insérer un objet"
jps
PS perso : pour mon truc, je reviendrai vers toi quand mes neurones ne
chaufferont plus à blanc...

"michdenis" a écrit dans le message de
news:
Bonjour Super,

Voici comment faire :

Affiche la barre d'outils "Contrôle"

Tu cliques sur l'icône "Autres contrôles" de la barre d'outils "contrôle"

et dans la liste qu'excel te proposera, tu cliques sur :

" Microsoft Mapi Message Control "

et tu dessines le contrôle (icône) sur ta feuille.

En mode création, tu double-cliques sur l'icône et tu copies ta procédure
entre le Sub et le End Sub.



Voilà ! En plus, cela fonctionne ! ;-))


Salutations!






"Super" a écrit dans le message de
news:
Bonjour,

J'ai vu dans le forum qu'il y avait beaucoup de littérature sur le sujet
avec un spécialiste avéré : Papou.

Moi, je souhaiterai envoyer un fichier avec ma worksheet dans le corps de
mon mail et non en document joint. Sur le net, j'ai beaucoup lu sur les
contrôles MAPI, mais truc très bête, je ne connais pas la référence à
fournir

à mon débuggeur pour qu'il reconnaisse ces objets...
J'ai tenté de lui ajouter dans les références :
C:Program FilesCommon FilesSystemMapi1033msmapi32.DLL, mais il n'en
veut pas ("Can't add a reference to the specified file"...)

J'ai un exemple de code sous la main pris sur Excelabo, mais les objets ne
sont donc pas reconnus et je ne sais pas ce que session représente..

Sub mail_par_vba()

'réponse de H. S. le lundi 13 décembre 1999 13:06
'newsgroup : microsoft.public.fr.excel
'discussion : Envoi de mail à partir d'Xl

'RAJOUTER UNE REFERENCE AU CONTROLE MAPI

Dim myMessage As New MAPIMessages
Dim mySession As New MAPISession

mySession.UserName = "Hamard Stephane"
mySession.Password = ""
mySession.SignOn
myMessage.SessionID = mySession.SessionID


myMessage.Compose
myMessage.RecipAddress = ""
myMessage.MsgSubject = "Resultat " & Format(Date, "dd/mm/yy")
myMessage.MsgNoteText = "Salut Zaza"
myMessage.AttachmentType = 0
myMessage.AttachmentName = "Fichier test"
myMessage.AttachmentPathName = "c:persotemptest.txt"
myMessage.ResolveName

On Error Resume Next
'Je n'arrive pas à intercepter la fermeture de la fenêtre...
'donc j'utilise la gestion d'erreur (pas très bon).
myMessage.Send True

mySession.SignOff
End Sub




Avatar
michdenis
Bonjour JPS,

Sur mon ordi, j'ai visual basic (le programme) d'installer. Il est possible que ce contrôle appartienne à Visual Basic
et qu'il soit disponible simplement à cause de sa présence ! Je n'ai pas vérifié.


Salutations!





"sabatier" a écrit dans le message de
news:%23%
bizarre, denis, chez moi, si je veux dessiner le contrôle sur la feuille, ça
me dit "impossible d'insérer un objet"
jps
PS perso : pour mon truc, je reviendrai vers toi quand mes neurones ne
chaufferont plus à blanc...

"michdenis" a écrit dans le message de
news:
Bonjour Super,

Voici comment faire :

Affiche la barre d'outils "Contrôle"

Tu cliques sur l'icône "Autres contrôles" de la barre d'outils "contrôle"

et dans la liste qu'excel te proposera, tu cliques sur :

" Microsoft Mapi Message Control "

et tu dessines le contrôle (icône) sur ta feuille.

En mode création, tu double-cliques sur l'icône et tu copies ta procédure
entre le Sub et le End Sub.



Voilà ! En plus, cela fonctionne ! ;-))


Salutations!






"Super" a écrit dans le message de
news:
Bonjour,

J'ai vu dans le forum qu'il y avait beaucoup de littérature sur le sujet
avec un spécialiste avéré : Papou.

Moi, je souhaiterai envoyer un fichier avec ma worksheet dans le corps de
mon mail et non en document joint. Sur le net, j'ai beaucoup lu sur les
contrôles MAPI, mais truc très bête, je ne connais pas la référence à
fournir

à mon débuggeur pour qu'il reconnaisse ces objets...
J'ai tenté de lui ajouter dans les références :
C:Program FilesCommon FilesSystemMapi1033msmapi32.DLL, mais il n'en
veut pas ("Can't add a reference to the specified file"...)

J'ai un exemple de code sous la main pris sur Excelabo, mais les objets ne
sont donc pas reconnus et je ne sais pas ce que session représente..

Sub mail_par_vba()

'réponse de H. S. le lundi 13 décembre 1999 13:06
'newsgroup : microsoft.public.fr.excel
'discussion : Envoi de mail à partir d'Xl

'RAJOUTER UNE REFERENCE AU CONTROLE MAPI

Dim myMessage As New MAPIMessages
Dim mySession As New MAPISession

mySession.UserName = "Hamard Stephane"
mySession.Password = ""
mySession.SignOn
myMessage.SessionID = mySession.SessionID


myMessage.Compose
myMessage.RecipAddress = ""
myMessage.MsgSubject = "Resultat " & Format(Date, "dd/mm/yy")
myMessage.MsgNoteText = "Salut Zaza"
myMessage.AttachmentType = 0
myMessage.AttachmentName = "Fichier test"
myMessage.AttachmentPathName = "c:persotemptest.txt"
myMessage.ResolveName

On Error Resume Next
'Je n'arrive pas à intercepter la fermeture de la fenêtre...
'donc j'utilise la gestion d'erreur (pas très bon).
myMessage.Send True

mySession.SignOff
End Sub




Avatar
sabatier
bien possible, denis, bien possible
à +
jps

"michdenis" a écrit dans le message de
news:
Bonjour JPS,

Sur mon ordi, j'ai visual basic (le programme) d'installer. Il est
possible que ce contrôle appartienne à Visual Basic

et qu'il soit disponible simplement à cause de sa présence ! Je n'ai pas
vérifié.



Salutations!





"sabatier" a écrit dans le
message de

news:%23%
bizarre, denis, chez moi, si je veux dessiner le contrôle sur la feuille,
ça

me dit "impossible d'insérer un objet"
jps
PS perso : pour mon truc, je reviendrai vers toi quand mes neurones ne
chaufferont plus à blanc...

"michdenis" a écrit dans le message de
news:
Bonjour Super,

Voici comment faire :

Affiche la barre d'outils "Contrôle"

Tu cliques sur l'icône "Autres contrôles" de la barre d'outils
"contrôle"



et dans la liste qu'excel te proposera, tu cliques sur :

" Microsoft Mapi Message Control "

et tu dessines le contrôle (icône) sur ta feuille.

En mode création, tu double-cliques sur l'icône et tu copies ta
procédure


entre le Sub et le End Sub.


Voilà ! En plus, cela fonctionne ! ;-))


Salutations!






"Super" a écrit dans le message de
news:
Bonjour,

J'ai vu dans le forum qu'il y avait beaucoup de littérature sur le sujet
avec un spécialiste avéré : Papou.

Moi, je souhaiterai envoyer un fichier avec ma worksheet dans le corps
de


mon mail et non en document joint. Sur le net, j'ai beaucoup lu sur les
contrôles MAPI, mais truc très bête, je ne connais pas la référence à
fournir

à mon débuggeur pour qu'il reconnaisse ces objets...
J'ai tenté de lui ajouter dans les références :
C:Program FilesCommon FilesSystemMapi1033msmapi32.DLL, mais il
n'en


veut pas ("Can't add a reference to the specified file"...)

J'ai un exemple de code sous la main pris sur Excelabo, mais les objets
ne


sont donc pas reconnus et je ne sais pas ce que session représente..

Sub mail_par_vba()

'réponse de H. S. le lundi 13 décembre 1999 13:06
'newsgroup : microsoft.public.fr.excel
'discussion : Envoi de mail à partir d'Xl

'RAJOUTER UNE REFERENCE AU CONTROLE MAPI

Dim myMessage As New MAPIMessages
Dim mySession As New MAPISession

mySession.UserName = "Hamard Stephane"
mySession.Password = ""
mySession.SignOn
myMessage.SessionID = mySession.SessionID


myMessage.Compose
myMessage.RecipAddress = ""
myMessage.MsgSubject = "Resultat " & Format(Date, "dd/mm/yy")
myMessage.MsgNoteText = "Salut Zaza"
myMessage.AttachmentType = 0
myMessage.AttachmentName = "Fichier test"
myMessage.AttachmentPathName = "c:persotemptest.txt"
myMessage.ResolveName

On Error Resume Next
'Je n'arrive pas à intercepter la fermeture de la fenêtre...
'donc j'utilise la gestion d'erreur (pas très bon).
myMessage.Send True

mySession.SignOff
End Sub









Avatar
isabelle
salut Denis,

il n'est pas sur ma liste non plus, connais tu son nom de fichier (x.ocx ou x.dll) ?

isabelle


Bonjour JPS,

Sur mon ordi, j'ai visual basic (le programme) d'installer. Il est possible que ce contrôle appartienne à Visual Basic
et qu'il soit disponible simplement à cause de sa présence ! Je n'ai pas vérifié.

Salutations!

"sabatier" a écrit dans le message de
news:%23%
bizarre, denis, chez moi, si je veux dessiner le contrôle sur la feuille, ça
me dit "impossible d'insérer un objet"
jps
PS perso : pour mon truc, je reviendrai vers toi quand mes neurones ne
chaufferont plus à blanc...

"michdenis" a écrit dans le message de
news:
Bonjour Super,

Voici comment faire :

Affiche la barre d'outils "Contrôle"

Tu cliques sur l'icône "Autres contrôles" de la barre d'outils "contrôle"

et dans la liste qu'excel te proposera, tu cliques sur :

" Microsoft Mapi Message Control "

et tu dessines le contrôle (icône) sur ta feuille.

En mode création, tu double-cliques sur l'icône et tu copies ta procédure
entre le Sub et le End Sub.



Voilà ! En plus, cela fonctionne ! ;-))


Salutations!






"Super" a écrit dans le message de
news:
Bonjour,

J'ai vu dans le forum qu'il y avait beaucoup de littérature sur le sujet
avec un spécialiste avéré : Papou.

Moi, je souhaiterai envoyer un fichier avec ma worksheet dans le corps de
mon mail et non en document joint. Sur le net, j'ai beaucoup lu sur les
contrôles MAPI, mais truc très bête, je ne connais pas la référence à
fournir

à mon débuggeur pour qu'il reconnaisse ces objets...
J'ai tenté de lui ajouter dans les références :
C:Program FilesCommon FilesSystemMapi1033msmapi32.DLL, mais il n'en
veut pas ("Can't add a reference to the specified file"...)

J'ai un exemple de code sous la main pris sur Excelabo, mais les objets ne
sont donc pas reconnus et je ne sais pas ce que session représente..

Sub mail_par_vba()

'réponse de H. S. le lundi 13 décembre 1999 13:06
'newsgroup : microsoft.public.fr.excel
'discussion : Envoi de mail à partir d'Xl

'RAJOUTER UNE REFERENCE AU CONTROLE MAPI

Dim myMessage As New MAPIMessages
Dim mySession As New MAPISession

mySession.UserName = "Hamard Stephane"
mySession.Password = ""
mySession.SignOn
myMessage.SessionID = mySession.SessionID


myMessage.Compose
myMessage.RecipAddress = ""
myMessage.MsgSubject = "Resultat " & Format(Date, "dd/mm/yy")
myMessage.MsgNoteText = "Salut Zaza"
myMessage.AttachmentType = 0
myMessage.AttachmentName = "Fichier test"
myMessage.AttachmentPathName = "c:persotemptest.txt"
myMessage.ResolveName

On Error Resume Next
'Je n'arrive pas à intercepter la fermeture de la fenêtre...
'donc j'utilise la gestion d'erreur (pas très bon).
myMessage.Send True

mySession.SignOff
End Sub






Avatar
michdenis
Bonjour Isabelle,

Je suis présentement sur Excel 2002 et Windows Pro Xp

'Dans Excel, la librairy ajouté au programme s'appelle Library MSMAPI Tel que vu dans l'explorateur d'objet de la
fenêtre VBE (liste déroulante Librairy)

Le nom du fichier est : MSMAPI32.OCX

et il est situé là : C:WINDOWSSystem32

Est-il présent si le programme Visual Basic n'est pas installé ?


Salutations!



"isabelle" a écrit dans le message de news:
salut Denis,

il n'est pas sur ma liste non plus, connais tu son nom de fichier (x.ocx ou x.dll) ?

isabelle


Bonjour JPS,

Sur mon ordi, j'ai visual basic (le programme) d'installer. Il est possible que ce contrôle appartienne à Visual Basic
et qu'il soit disponible simplement à cause de sa présence ! Je n'ai pas vérifié.

Salutations!

"sabatier" a écrit dans le message de
news:%23%
bizarre, denis, chez moi, si je veux dessiner le contrôle sur la feuille, ça
me dit "impossible d'insérer un objet"
jps
PS perso : pour mon truc, je reviendrai vers toi quand mes neurones ne
chaufferont plus à blanc...

"michdenis" a écrit dans le message de
news:
Bonjour Super,

Voici comment faire :

Affiche la barre d'outils "Contrôle"

Tu cliques sur l'icône "Autres contrôles" de la barre d'outils "contrôle"

et dans la liste qu'excel te proposera, tu cliques sur :

" Microsoft Mapi Message Control "

et tu dessines le contrôle (icône) sur ta feuille.

En mode création, tu double-cliques sur l'icône et tu copies ta procédure
entre le Sub et le End Sub.



Voilà ! En plus, cela fonctionne ! ;-))


Salutations!






"Super" a écrit dans le message de
news:
Bonjour,

J'ai vu dans le forum qu'il y avait beaucoup de littérature sur le sujet
avec un spécialiste avéré : Papou.

Moi, je souhaiterai envoyer un fichier avec ma worksheet dans le corps de
mon mail et non en document joint. Sur le net, j'ai beaucoup lu sur les
contrôles MAPI, mais truc très bête, je ne connais pas la référence à
fournir

à mon débuggeur pour qu'il reconnaisse ces objets...
J'ai tenté de lui ajouter dans les références :
C:Program FilesCommon FilesSystemMapi1033msmapi32.DLL, mais il n'en
veut pas ("Can't add a reference to the specified file"...)

J'ai un exemple de code sous la main pris sur Excelabo, mais les objets ne
sont donc pas reconnus et je ne sais pas ce que session représente..

Sub mail_par_vba()

'réponse de H. S. le lundi 13 décembre 1999 13:06
'newsgroup : microsoft.public.fr.excel
'discussion : Envoi de mail à partir d'Xl

'RAJOUTER UNE REFERENCE AU CONTROLE MAPI

Dim myMessage As New MAPIMessages
Dim mySession As New MAPISession

mySession.UserName = "Hamard Stephane"
mySession.Password = ""
mySession.SignOn
myMessage.SessionID = mySession.SessionID


myMessage.Compose
myMessage.RecipAddress = ""
myMessage.MsgSubject = "Resultat " & Format(Date, "dd/mm/yy")
myMessage.MsgNoteText = "Salut Zaza"
myMessage.AttachmentType = 0
myMessage.AttachmentName = "Fichier test"
myMessage.AttachmentPathName = "c:persotemptest.txt"
myMessage.ResolveName

On Error Resume Next
'Je n'arrive pas à intercepter la fermeture de la fenêtre...
'donc j'utilise la gestion d'erreur (pas très bon).
myMessage.Send True

mySession.SignOff
End Sub






Avatar
michdenis
Si tu désires faire un test, Isabelle, si le fichier est absent sur ta bécane, je t'envoie par courriel un exemplaire du
fichier. Tu initialise la base de registre et tu regardes si tu peux l'utiliser sans autre support !

Évidemment, après le test, tu t'empresseras de faire disparaître toute trace du fichier !

;-)))


Salutations!


"michdenis" a écrit dans le message de news:
Bonjour Isabelle,

Je suis présentement sur Excel 2002 et Windows Pro Xp

'Dans Excel, la librairy ajouté au programme s'appelle Library MSMAPI Tel que vu dans l'explorateur d'objet de la
fenêtre VBE (liste déroulante Librairy)

Le nom du fichier est : MSMAPI32.OCX

et il est situé là : C:WINDOWSSystem32

Est-il présent si le programme Visual Basic n'est pas installé ?


Salutations!



"isabelle" a écrit dans le message de news:
salut Denis,

il n'est pas sur ma liste non plus, connais tu son nom de fichier (x.ocx ou x.dll) ?

isabelle


Bonjour JPS,

Sur mon ordi, j'ai visual basic (le programme) d'installer. Il est possible que ce contrôle appartienne à Visual Basic
et qu'il soit disponible simplement à cause de sa présence ! Je n'ai pas vérifié.

Salutations!

"sabatier" a écrit dans le message de
news:%23%
bizarre, denis, chez moi, si je veux dessiner le contrôle sur la feuille, ça
me dit "impossible d'insérer un objet"
jps
PS perso : pour mon truc, je reviendrai vers toi quand mes neurones ne
chaufferont plus à blanc...

"michdenis" a écrit dans le message de
news:
Bonjour Super,

Voici comment faire :

Affiche la barre d'outils "Contrôle"

Tu cliques sur l'icône "Autres contrôles" de la barre d'outils "contrôle"

et dans la liste qu'excel te proposera, tu cliques sur :

" Microsoft Mapi Message Control "

et tu dessines le contrôle (icône) sur ta feuille.

En mode création, tu double-cliques sur l'icône et tu copies ta procédure
entre le Sub et le End Sub.



Voilà ! En plus, cela fonctionne ! ;-))


Salutations!






"Super" a écrit dans le message de
news:
Bonjour,

J'ai vu dans le forum qu'il y avait beaucoup de littérature sur le sujet
avec un spécialiste avéré : Papou.

Moi, je souhaiterai envoyer un fichier avec ma worksheet dans le corps de
mon mail et non en document joint. Sur le net, j'ai beaucoup lu sur les
contrôles MAPI, mais truc très bête, je ne connais pas la référence à
fournir

à mon débuggeur pour qu'il reconnaisse ces objets...
J'ai tenté de lui ajouter dans les références :
C:Program FilesCommon FilesSystemMapi1033msmapi32.DLL, mais il n'en
veut pas ("Can't add a reference to the specified file"...)

J'ai un exemple de code sous la main pris sur Excelabo, mais les objets ne
sont donc pas reconnus et je ne sais pas ce que session représente..

Sub mail_par_vba()

'réponse de H. S. le lundi 13 décembre 1999 13:06
'newsgroup : microsoft.public.fr.excel
'discussion : Envoi de mail à partir d'Xl

'RAJOUTER UNE REFERENCE AU CONTROLE MAPI

Dim myMessage As New MAPIMessages
Dim mySession As New MAPISession

mySession.UserName = "Hamard Stephane"
mySession.Password = ""
mySession.SignOn
myMessage.SessionID = mySession.SessionID


myMessage.Compose
myMessage.RecipAddress = ""
myMessage.MsgSubject = "Resultat " & Format(Date, "dd/mm/yy")
myMessage.MsgNoteText = "Salut Zaza"
myMessage.AttachmentType = 0
myMessage.AttachmentName = "Fichier test"
myMessage.AttachmentPathName = "c:persotemptest.txt"
myMessage.ResolveName

On Error Resume Next
'Je n'arrive pas à intercepter la fermeture de la fenêtre...
'donc j'utilise la gestion d'erreur (pas très bon).
myMessage.Send True

mySession.SignOff
End Sub






Avatar
sabatier
ben oui j'ai pourtant bien coché cette library dans la liste des références
mais le controle sur la feuille ne veut pas mieux s'ouvrir, denis
je vais juste vérifier si j'ai bien l'OCX
à noter toutefois que la référence dans VBE s'appelle chez moi Microsoft
MAPI Controls 6.0
jps

"michdenis" a écrit dans le message de
news:
Bonjour Isabelle,

Je suis présentement sur Excel 2002 et Windows Pro Xp

'Dans Excel, la librairy ajouté au programme s'appelle Library MSMAPI Tel
que vu dans l'explorateur d'objet de la

fenêtre VBE (liste déroulante Librairy)

Le nom du fichier est : MSMAPI32.OCX

et il est situé là : C:WINDOWSSystem32

Est-il présent si le programme Visual Basic n'est pas installé ?


Salutations!



"isabelle" a écrit dans le message de
news:

salut Denis,

il n'est pas sur ma liste non plus, connais tu son nom de fichier (x.ocx
ou x.dll) ?


isabelle


Bonjour JPS,

Sur mon ordi, j'ai visual basic (le programme) d'installer. Il est
possible que ce contrôle appartienne à Visual Basic


et qu'il soit disponible simplement à cause de sa présence ! Je n'ai
pas vérifié.



Salutations!

"sabatier" a écrit dans le
message de


news:%23%
bizarre, denis, chez moi, si je veux dessiner le contrôle sur la
feuille, ça


me dit "impossible d'insérer un objet"
jps
PS perso : pour mon truc, je reviendrai vers toi quand mes neurones ne
chaufferont plus à blanc...

"michdenis" a écrit dans le message de
news:
Bonjour Super,

Voici comment faire :

Affiche la barre d'outils "Contrôle"

Tu cliques sur l'icône "Autres contrôles" de la barre d'outils
"contrôle"




et dans la liste qu'excel te proposera, tu cliques sur :

" Microsoft Mapi Message Control "

et tu dessines le contrôle (icône) sur ta feuille.

En mode création, tu double-cliques sur l'icône et tu copies ta
procédure



entre le Sub et le End Sub.


Voilà ! En plus, cela fonctionne ! ;-))


Salutations!






"Super" a écrit dans le message de
news:
Bonjour,

J'ai vu dans le forum qu'il y avait beaucoup de littérature sur le
sujet



avec un spécialiste avéré : Papou.

Moi, je souhaiterai envoyer un fichier avec ma worksheet dans le corps
de



mon mail et non en document joint. Sur le net, j'ai beaucoup lu sur
les



contrôles MAPI, mais truc très bête, je ne connais pas la référence à
fournir

à mon débuggeur pour qu'il reconnaisse ces objets...
J'ai tenté de lui ajouter dans les références :
C:Program FilesCommon FilesSystemMapi1033msmapi32.DLL, mais il
n'en



veut pas ("Can't add a reference to the specified file"...)

J'ai un exemple de code sous la main pris sur Excelabo, mais les
objets ne



sont donc pas reconnus et je ne sais pas ce que session représente..

Sub mail_par_vba()

'réponse de H. S. le lundi 13 décembre 1999 13:06
'newsgroup : microsoft.public.fr.excel
'discussion : Envoi de mail à partir d'Xl

'RAJOUTER UNE REFERENCE AU CONTROLE MAPI

Dim myMessage As New MAPIMessages
Dim mySession As New MAPISession

mySession.UserName = "Hamard Stephane"
mySession.Password = ""
mySession.SignOn
myMessage.SessionID = mySession.SessionID


myMessage.Compose
myMessage.RecipAddress = ""
myMessage.MsgSubject = "Resultat " & Format(Date, "dd/mm/yy")
myMessage.MsgNoteText = "Salut Zaza"
myMessage.AttachmentType = 0
myMessage.AttachmentName = "Fichier test"
myMessage.AttachmentPathName = "c:persotemptest.txt"
myMessage.ResolveName

On Error Resume Next
'Je n'arrive pas à intercepter la fermeture de la fenêtre...
'donc j'utilise la gestion d'erreur (pas très bon).
myMessage.Send True

mySession.SignOff
End Sub










Avatar
isabelle
non Denis il n'est pas présent,

isabelle


Bonjour Isabelle,

Je suis présentement sur Excel 2002 et Windows Pro Xp

'Dans Excel, la librairy ajouté au programme s'appelle Library MSMAPI Tel que vu dans l'explorateur d'objet de la
fenêtre VBE (liste déroulante Librairy)

Le nom du fichier est : MSMAPI32.OCX

et il est situé là : C:WINDOWSSystem32

Est-il présent si le programme Visual Basic n'est pas installé ?

Salutations!

"isabelle" a écrit dans le message de news:
salut Denis,

il n'est pas sur ma liste non plus, connais tu son nom de fichier (x.ocx ou x.dll) ?

isabelle


Bonjour JPS,

Sur mon ordi, j'ai visual basic (le programme) d'installer. Il est possible que ce contrôle appartienne à Visual Basic
et qu'il soit disponible simplement à cause de sa présence ! Je n'ai pas vérifié.

Salutations!

"sabatier" a écrit dans le message de
news:%23%
bizarre, denis, chez moi, si je veux dessiner le contrôle sur la feuille, ça
me dit "impossible d'insérer un objet"
jps
PS perso : pour mon truc, je reviendrai vers toi quand mes neurones ne
chaufferont plus à blanc...

"michdenis" a écrit dans le message de
news:
Bonjour Super,

Voici comment faire :

Affiche la barre d'outils "Contrôle"

Tu cliques sur l'icône "Autres contrôles" de la barre d'outils "contrôle"

et dans la liste qu'excel te proposera, tu cliques sur :

" Microsoft Mapi Message Control "

et tu dessines le contrôle (icône) sur ta feuille.

En mode création, tu double-cliques sur l'icône et tu copies ta procédure
entre le Sub et le End Sub.



Voilà ! En plus, cela fonctionne ! ;-))


Salutations!






"Super" a écrit dans le message de
news:
Bonjour,

J'ai vu dans le forum qu'il y avait beaucoup de littérature sur le sujet
avec un spécialiste avéré : Papou.

Moi, je souhaiterai envoyer un fichier avec ma worksheet dans le corps de
mon mail et non en document joint. Sur le net, j'ai beaucoup lu sur les
contrôles MAPI, mais truc très bête, je ne connais pas la référence à
fournir

à mon débuggeur pour qu'il reconnaisse ces objets...
J'ai tenté de lui ajouter dans les références :
C:Program FilesCommon FilesSystemMapi1033msmapi32.DLL, mais il n'en
veut pas ("Can't add a reference to the specified file"...)

J'ai un exemple de code sous la main pris sur Excelabo, mais les objets ne
sont donc pas reconnus et je ne sais pas ce que session représente..

Sub mail_par_vba()

'réponse de H. S. le lundi 13 décembre 1999 13:06
'newsgroup : microsoft.public.fr.excel
'discussion : Envoi de mail à partir d'Xl

'RAJOUTER UNE REFERENCE AU CONTROLE MAPI

Dim myMessage As New MAPIMessages
Dim mySession As New MAPISession

mySession.UserName = "Hamard Stephane"
mySession.Password = ""
mySession.SignOn
myMessage.SessionID = mySession.SessionID


myMessage.Compose
myMessage.RecipAddress = ""
myMessage.MsgSubject = "Resultat " & Format(Date, "dd/mm/yy")
myMessage.MsgNoteText = "Salut Zaza"
myMessage.AttachmentType = 0
myMessage.AttachmentName = "Fichier test"
myMessage.AttachmentPathName = "c:persotemptest.txt"
myMessage.ResolveName

On Error Resume Next
'Je n'arrive pas à intercepter la fermeture de la fenêtre...
'donc j'utilise la gestion d'erreur (pas très bon).
myMessage.Send True

mySession.SignOff
End Sub








Avatar
isabelle
on peut le télécharger ici http://www.zerohack.it/downloads/ocx.htm, mais comme il n'est pas correctement licencié c'est
impossible de l'utiliser. :-(

isabelle


non Denis il n'est pas présent,

isabelle


Bonjour Isabelle,

Je suis présentement sur Excel 2002 et Windows Pro Xp

'Dans Excel, la librairy ajouté au programme s'appelle Library MSMAPI Tel que vu dans l'explorateur d'objet de la
fenêtre VBE (liste déroulante Librairy)

Le nom du fichier est : MSMAPI32.OCX

et il est situé là : C:WINDOWSSystem32

Est-il présent si le programme Visual Basic n'est pas installé ?

Salutations!

"isabelle" a écrit dans le message de news:
salut Denis,

il n'est pas sur ma liste non plus, connais tu son nom de fichier (x.ocx ou x.dll) ?

isabelle


Bonjour JPS,

Sur mon ordi, j'ai visual basic (le programme) d'installer. Il est possible que ce contrôle appartienne à Visual Basic
et qu'il soit disponible simplement à cause de sa présence ! Je n'ai pas vérifié.

Salutations!

"sabatier" a écrit dans le message de
news:%23%
bizarre, denis, chez moi, si je veux dessiner le contrôle sur la feuille, ça
me dit "impossible d'insérer un objet"
jps
PS perso : pour mon truc, je reviendrai vers toi quand mes neurones ne
chaufferont plus à blanc...

"michdenis" a écrit dans le message de
news:
Bonjour Super,

Voici comment faire :

Affiche la barre d'outils "Contrôle"

Tu cliques sur l'icône "Autres contrôles" de la barre d'outils "contrôle"

et dans la liste qu'excel te proposera, tu cliques sur :

" Microsoft Mapi Message Control "

et tu dessines le contrôle (icône) sur ta feuille.

En mode création, tu double-cliques sur l'icône et tu copies ta procédure
entre le Sub et le End Sub.



Voilà ! En plus, cela fonctionne ! ;-))


Salutations!






"Super" a écrit dans le message de
news:
Bonjour,

J'ai vu dans le forum qu'il y avait beaucoup de littérature sur le sujet
avec un spécialiste avéré : Papou.

Moi, je souhaiterai envoyer un fichier avec ma worksheet dans le corps de
mon mail et non en document joint. Sur le net, j'ai beaucoup lu sur les
contrôles MAPI, mais truc très bête, je ne connais pas la référence à
fournir

à mon débuggeur pour qu'il reconnaisse ces objets...
J'ai tenté de lui ajouter dans les références :
C:Program FilesCommon FilesSystemMapi1033msmapi32.DLL, mais il n'en
veut pas ("Can't add a reference to the specified file"...)

J'ai un exemple de code sous la main pris sur Excelabo, mais les objets ne
sont donc pas reconnus et je ne sais pas ce que session représente..

Sub mail_par_vba()

'réponse de H. S. le lundi 13 décembre 1999 13:06
'newsgroup : microsoft.public.fr.excel
'discussion : Envoi de mail à partir d'Xl

'RAJOUTER UNE REFERENCE AU CONTROLE MAPI

Dim myMessage As New MAPIMessages
Dim mySession As New MAPISession

mySession.UserName = "Hamard Stephane"
mySession.Password = ""
mySession.SignOn
myMessage.SessionID = mySession.SessionID


myMessage.Compose
myMessage.RecipAddress = ""
myMessage.MsgSubject = "Resultat " & Format(Date, "dd/mm/yy")
myMessage.MsgNoteText = "Salut Zaza"
myMessage.AttachmentType = 0
myMessage.AttachmentName = "Fichier test"
myMessage.AttachmentPathName = "c:persotemptest.txt"
myMessage.ResolveName

On Error Resume Next
'Je n'arrive pas à intercepter la fermeture de la fenêtre...
'donc j'utilise la gestion d'erreur (pas très bon).
myMessage.Send True

mySession.SignOff
End Sub










1 2 3