Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel envoie Mail suite

envoie Mail suite

7 réponses
Avatar
Emcy
Avec un exemple trouv=E9 sur Excel Labo, j'arrive presque =E0=20
envoyer un mail. Lorque j'envoie le mail un message me=20
demande si=20
je veux bien envoyer le mail (protection de outlook) =3D>=20
alors je r=E9pond oui.

Le probl=E8me est que le fichier est bien dans le dossier=20
des fichiers =E0 envoyer mais je suis oblig=E9 d'aller dans=20
outlook et de faire un envoyer/recevoir car sinon le mail=20
ne part pas

quelqu'un peut-il m'aider ?

Exemple Exel Labo:

Sub Outlook()

Dim OLF As Outlook.MAPIFolder, olMailItem As=20
Outlook.MailItem, ToContact As Recipient

MESsages =3D MSG11 & MSG12 & MSG13 & MSG14
Set OLF =3D GetObject
("", "Outlook.Application").GetNamespace
("MAPI").GetDefaultFolder(olFolderInbox)
Set olMailItem =3D OLF.Items.Add
=20
With olMailItem
=20
.Subject =3D "XXXXXXXXXXXX1"
=20
Set ToContact =3D .Recipients.Add
("monadresse@blabla.com")
.Body =3D "ton message"
.Attachments.Add "c:\readme.txt" & SOCiete & "" &=20
Nomvar, olByValue, , "le fichier que tu veux joindre"
.OriginatorDeliveryReportRequested =3D False
.ReadReceiptRequested =3D False
.Send
End With
=20
Set ToContact =3D Nothing
Set olMailItem =3D Nothing
Set OLF =3D Nothing

End Sub
Signaler un problème avec ce contenu

7 réponses

Supprimer
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
Avatar
papou
Bonjour Emcy
Je ne peux pas le vérifier maintenant, mais il me semble bien que tu dois
avoir une option dans Outlook qui te permet d'envoyer automatiquement
lorsque la connexion est établie.
Cordialement
Pascal

"Emcy" a écrit dans le message de
news:5d4601c3e571$6de8e2f0$
Avec un exemple trouvé sur Excel Labo, j'arrive presque à
envoyer un mail. Lorque j'envoie le mail un message me
demande si
je veux bien envoyer le mail (protection de outlook) =>
alors je répond oui.

Le problème est que le fichier est bien dans le dossier
des fichiers à envoyer mais je suis obligé d'aller dans
outlook et de faire un envoyer/recevoir car sinon le mail
ne part pas

quelqu'un peut-il m'aider ?

Exemple Exel Labo:

Sub Outlook()

Dim OLF As Outlook.MAPIFolder, olMailItem As
Outlook.MailItem, ToContact As Recipient

MESsages = MSG11 & MSG12 & MSG13 & MSG14
Set OLF = GetObject
("", "Outlook.Application").GetNamespace
("MAPI").GetDefaultFolder(olFolderInbox)
Set olMailItem = OLF.Items.Add

With olMailItem

.Subject = "XXXXXXXXXXXX1"

Set ToContact = .Recipients.Add
("")
.Body = "ton message"
.Attachments.Add "c:readme.txt" & SOCiete & "" &
Nomvar, olByValue, , "le fichier que tu veux joindre"
.OriginatorDeliveryReportRequested = False
.ReadReceiptRequested = False
.Send
End With

Set ToContact = Nothing
Set olMailItem = Nothing
Set OLF = Nothing

End Sub
Avatar
Emcy
Je ne trouve pas l'option...

-----Message d'origine-----
Bonjour Emcy
Je ne peux pas le vérifier maintenant, mais il me semble
bien que tu dois

avoir une option dans Outlook qui te permet d'envoyer
automatiquement

lorsque la connexion est établie.
Cordialement
Pascal

"Emcy" a écrit
dans le message de

news:5d4601c3e571$6de8e2f0$
Avec un exemple trouvé sur Excel Labo, j'arrive presque à
envoyer un mail. Lorque j'envoie le mail un message me
demande si
je veux bien envoyer le mail (protection de outlook) =>
alors je répond oui.

Le problème est que le fichier est bien dans le dossier
des fichiers à envoyer mais je suis obligé d'aller dans
outlook et de faire un envoyer/recevoir car sinon le mail
ne part pas

quelqu'un peut-il m'aider ?

Exemple Exel Labo:

Sub Outlook()

Dim OLF As Outlook.MAPIFolder, olMailItem As
Outlook.MailItem, ToContact As Recipient

MESsages = MSG11 & MSG12 & MSG13 & MSG14
Set OLF = GetObject
("", "Outlook.Application").GetNamespace
("MAPI").GetDefaultFolder(olFolderInbox)
Set olMailItem = OLF.Items.Add

With olMailItem

.Subject = "XXXXXXXXXXXX1"

Set ToContact = .Recipients.Add
("")
.Body = "ton message"
.Attachments.Add "c:readme.txt" & SOCiete & "" &
Nomvar, olByValue, , "le fichier que tu veux joindre"
.OriginatorDeliveryReportRequested = False
.ReadReceiptRequested = False
.Send
End With

Set ToContact = Nothing
Set olMailItem = Nothing
Set OLF = Nothing

End Sub



.



Avatar
papou
Emcy
Je viens de trouver un Outllook XP avec une connexion hors LAN :
Outils, Options, onglet Messagerie, cocher "Envoyer immédiatement une fois
connecté"
Cordialement
Pascal

"Emcy" a écrit dans le message de
news:52b001c3e575$7921d2e0$
Je ne trouve pas l'option...

-----Message d'origine-----
Bonjour Emcy
Je ne peux pas le vérifier maintenant, mais il me semble
bien que tu dois

avoir une option dans Outlook qui te permet d'envoyer
automatiquement

lorsque la connexion est établie.
Cordialement
Pascal

"Emcy" a écrit
dans le message de

news:5d4601c3e571$6de8e2f0$
Avec un exemple trouvé sur Excel Labo, j'arrive presque à
envoyer un mail. Lorque j'envoie le mail un message me
demande si
je veux bien envoyer le mail (protection de outlook) =>
alors je répond oui.

Le problème est que le fichier est bien dans le dossier
des fichiers à envoyer mais je suis obligé d'aller dans
outlook et de faire un envoyer/recevoir car sinon le mail
ne part pas

quelqu'un peut-il m'aider ?

Exemple Exel Labo:

Sub Outlook()

Dim OLF As Outlook.MAPIFolder, olMailItem As
Outlook.MailItem, ToContact As Recipient

MESsages = MSG11 & MSG12 & MSG13 & MSG14
Set OLF = GetObject
("", "Outlook.Application").GetNamespace
("MAPI").GetDefaultFolder(olFolderInbox)
Set olMailItem = OLF.Items.Add

With olMailItem

.Subject = "XXXXXXXXXXXX1"

Set ToContact = .Recipients.Add
("")
.Body = "ton message"
.Attachments.Add "c:readme.txt" & SOCiete & "" &
Nomvar, olByValue, , "le fichier que tu veux joindre"
.OriginatorDeliveryReportRequested = False
.ReadReceiptRequested = False
.Send
End With

Set ToContact = Nothing
Set olMailItem = Nothing
Set OLF = Nothing

End Sub



.



Avatar
Emcy
Aussi j'ai une autre question.

A quoi sert
& SOCiete & "" & Nomvar, olByValue, , "le fichier que tu
veux joindre"
dans la ligne de commande
.Attachments.Add "c:readme.txt" & SOCiete & "" & Nomvar,
olByValue, , "le fichier que tu veux joindre" ?

Je comprend que .Attachments.Add "c:readme.txt" permet
de mettre en fichier joint le fichier "c:readme.txt"
mais je ne vois pas l'utilité de ce qui suit


-----Message d'origine-----
Bonjour Emcy
Je ne peux pas le vérifier maintenant, mais il me semble
bien que tu dois

avoir une option dans Outlook qui te permet d'envoyer
automatiquement

lorsque la connexion est établie.
Cordialement
Pascal

"Emcy" a écrit
dans le message de

news:5d4601c3e571$6de8e2f0$
Avec un exemple trouvé sur Excel Labo, j'arrive presque à
envoyer un mail. Lorque j'envoie le mail un message me
demande si
je veux bien envoyer le mail (protection de outlook) =>
alors je répond oui.

Le problème est que le fichier est bien dans le dossier
des fichiers à envoyer mais je suis obligé d'aller dans
outlook et de faire un envoyer/recevoir car sinon le mail
ne part pas

quelqu'un peut-il m'aider ?

Exemple Exel Labo:

Sub Outlook()

Dim OLF As Outlook.MAPIFolder, olMailItem As
Outlook.MailItem, ToContact As Recipient

MESsages = MSG11 & MSG12 & MSG13 & MSG14
Set OLF = GetObject
("", "Outlook.Application").GetNamespace
("MAPI").GetDefaultFolder(olFolderInbox)
Set olMailItem = OLF.Items.Add

With olMailItem

.Subject = "XXXXXXXXXXXX1"

Set ToContact = .Recipients.Add
("")
.Body = "ton message"
.Attachments.Add "c:readme.txt" & SOCiete & "" &
Nomvar, olByValue, , "le fichier que tu veux joindre"
.OriginatorDeliveryReportRequested = False
.ReadReceiptRequested = False
.Send
End With

Set ToContact = Nothing
Set olMailItem = Nothing
Set OLF = Nothing

End Sub



.



Avatar
papou
Re
Ce sont les arguments supplémentaires liés à la méthode Add
Elle comprend 4 arguments (trouvé dans l'aide Outlook) :
Source = Argument de type Variant, le nom complet du fichier
Type = Argument de type Long facultatif, type de pièce jointe(olByreference,
olByValue ou olEmbeddedItem)
Position = Argument de type Long, emplacement de la pièce jointe dans le
corps du message
DisplayName = Argument de type String facultatif, nom complet de la pièce
jointe, argument ignoré sauf si l'argument Type = olByValue
Cordialement
Pascal


"Emcy" a écrit dans le message de
news:581f01c3e578$cd305980$
Aussi j'ai une autre question.

A quoi sert
& SOCiete & "" & Nomvar, olByValue, , "le fichier que tu
veux joindre"
dans la ligne de commande
.Attachments.Add "c:readme.txt" & SOCiete & "" & Nomvar,
olByValue, , "le fichier que tu veux joindre" ?

Je comprend que .Attachments.Add "c:readme.txt" permet
de mettre en fichier joint le fichier "c:readme.txt"
mais je ne vois pas l'utilité de ce qui suit


-----Message d'origine-----
Bonjour Emcy
Je ne peux pas le vérifier maintenant, mais il me semble
bien que tu dois

avoir une option dans Outlook qui te permet d'envoyer
automatiquement

lorsque la connexion est établie.
Cordialement
Pascal

"Emcy" a écrit
dans le message de

news:5d4601c3e571$6de8e2f0$
Avec un exemple trouvé sur Excel Labo, j'arrive presque à
envoyer un mail. Lorque j'envoie le mail un message me
demande si
je veux bien envoyer le mail (protection de outlook) =>
alors je répond oui.

Le problème est que le fichier est bien dans le dossier
des fichiers à envoyer mais je suis obligé d'aller dans
outlook et de faire un envoyer/recevoir car sinon le mail
ne part pas

quelqu'un peut-il m'aider ?

Exemple Exel Labo:

Sub Outlook()

Dim OLF As Outlook.MAPIFolder, olMailItem As
Outlook.MailItem, ToContact As Recipient

MESsages = MSG11 & MSG12 & MSG13 & MSG14
Set OLF = GetObject
("", "Outlook.Application").GetNamespace
("MAPI").GetDefaultFolder(olFolderInbox)
Set olMailItem = OLF.Items.Add

With olMailItem

.Subject = "XXXXXXXXXXXX1"

Set ToContact = .Recipients.Add
("")
.Body = "ton message"
.Attachments.Add "c:readme.txt" & SOCiete & "" &
Nomvar, olByValue, , "le fichier que tu veux joindre"
.OriginatorDeliveryReportRequested = False
.ReadReceiptRequested = False
.Send
End With

Set ToContact = Nothing
Set olMailItem = Nothing
Set OLF = Nothing

End Sub



.



Avatar
Emcy
La case était déja cochée, tu n'as pas une autre solution
de rechange ?


-----Message d'origine-----
Emcy
Je viens de trouver un Outllook XP avec une connexion
hors LAN :

Outils, Options, onglet Messagerie, cocher "Envoyer
immédiatement une fois

connecté"
Cordialement
Pascal

"Emcy" a écrit
dans le message de

news:52b001c3e575$7921d2e0$
Je ne trouve pas l'option...

-----Message d'origine-----
Bonjour Emcy
Je ne peux pas le vérifier maintenant, mais il me semble
bien que tu dois

avoir une option dans Outlook qui te permet d'envoyer
automatiquement

lorsque la connexion est établie.
Cordialement
Pascal

"Emcy" a écrit
dans le message de

news:5d4601c3e571$6de8e2f0$
Avec un exemple trouvé sur Excel Labo, j'arrive presque
à


envoyer un mail. Lorque j'envoie le mail un message me
demande si
je veux bien envoyer le mail (protection de outlook) =>
alors je répond oui.

Le problème est que le fichier est bien dans le dossier
des fichiers à envoyer mais je suis obligé d'aller dans
outlook et de faire un envoyer/recevoir car sinon le
mail


ne part pas

quelqu'un peut-il m'aider ?

Exemple Exel Labo:

Sub Outlook()

Dim OLF As Outlook.MAPIFolder, olMailItem As
Outlook.MailItem, ToContact As Recipient

MESsages = MSG11 & MSG12 & MSG13 & MSG14
Set OLF = GetObject
("", "Outlook.Application").GetNamespace
("MAPI").GetDefaultFolder(olFolderInbox)
Set olMailItem = OLF.Items.Add

With olMailItem

.Subject = "XXXXXXXXXXXX1"

Set ToContact = .Recipients.Add
("")
.Body = "ton message"
.Attachments.Add "c:readme.txt" & SOCiete & ""
&


Nomvar, olByValue, , "le fichier que tu veux joindre"
.OriginatorDeliveryReportRequested = False
.ReadReceiptRequested = False
.Send
End With

Set ToContact = Nothing
Set olMailItem = Nothing
Set OLF = Nothing

End Sub



.




.




Avatar
Emcy
Merci !!!!

-----Message d'origine-----
Re
Ce sont les arguments supplémentaires liés à la méthode
Add

Elle comprend 4 arguments (trouvé dans l'aide Outlook) :
Source = Argument de type Variant, le nom complet du
fichier

Type = Argument de type Long facultatif, type de pièce
jointe(olByreference,

olByValue ou olEmbeddedItem)
Position = Argument de type Long, emplacement de la
pièce jointe dans le

corps du message
DisplayName = Argument de type String facultatif, nom
complet de la pièce

jointe, argument ignoré sauf si l'argument Type =
olByValue

Cordialement
Pascal


"Emcy" a écrit
dans le message de

news:581f01c3e578$cd305980$
Aussi j'ai une autre question.

A quoi sert
& SOCiete & "" & Nomvar, olByValue, , "le fichier que tu
veux joindre"
dans la ligne de commande
..Attachments.Add "c:readme.txt" & SOCiete & "" &
Nomvar,

olByValue, , "le fichier que tu veux joindre" ?

Je comprend que .Attachments.Add "c:readme.txt" permet
de mettre en fichier joint le fichier "c:readme.txt"
mais je ne vois pas l'utilité de ce qui suit


-----Message d'origine-----
Bonjour Emcy
Je ne peux pas le vérifier maintenant, mais il me semble
bien que tu dois

avoir une option dans Outlook qui te permet d'envoyer
automatiquement

lorsque la connexion est établie.
Cordialement
Pascal

"Emcy" a écrit
dans le message de

news:5d4601c3e571$6de8e2f0$
Avec un exemple trouvé sur Excel Labo, j'arrive presque
à


envoyer un mail. Lorque j'envoie le mail un message me
demande si
je veux bien envoyer le mail (protection de outlook) =>
alors je répond oui.

Le problème est que le fichier est bien dans le dossier
des fichiers à envoyer mais je suis obligé d'aller dans
outlook et de faire un envoyer/recevoir car sinon le
mail


ne part pas

quelqu'un peut-il m'aider ?

Exemple Exel Labo:

Sub Outlook()

Dim OLF As Outlook.MAPIFolder, olMailItem As
Outlook.MailItem, ToContact As Recipient

MESsages = MSG11 & MSG12 & MSG13 & MSG14
Set OLF = GetObject
("", "Outlook.Application").GetNamespace
("MAPI").GetDefaultFolder(olFolderInbox)
Set olMailItem = OLF.Items.Add

With olMailItem

.Subject = "XXXXXXXXXXXX1"

Set ToContact = .Recipients.Add
("")
.Body = "ton message"
.Attachments.Add "c:readme.txt" & SOCiete & ""
&


Nomvar, olByValue, , "le fichier que tu veux joindre"
.OriginatorDeliveryReportRequested = False
.ReadReceiptRequested = False
.Send
End With

Set ToContact = Nothing
Set olMailItem = Nothing
Set OLF = Nothing

End Sub



.




.