Discussion :

[Jihnn]

Salut !

J'ai réussi à envoyer un mail avec ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
MAPISession1.SignOn
MAPIMessages1.MsgIndex = -1
MAPIMessages1.SessionID = MAPISession1.SessionID
MAPIMessages1.RecipDisplayName = "toto@domaine.fr"  'Destinataire
MAPIMessages1.MsgSubject = "Un petit bonjour"       'Objet
MAPIMessages1.MsgNoteText = "Salut."                'Texte
MAPIMessages1.Send
MAPISession1.SignOff

Maintenant, j'ai un problème. L'alerte Outlook lors de l'envoie du mail est assez chiante, j'aimerais savoir s'il y a moyen de l'enlever ?
(En fait, elle nous dit qu'un message s'apprête à être envoyé, mais ça dérange tout le programme ^^)


Pour l'icône, quelle doit être la taille du .ico ? Car j'ai toujours la même error (Invalid Property Value je crois)


Merci d'avance !

[ThierryAIM]

http://www.developpez.net/forums/viewtopic.php?t=450552

[Jihnn]

En cherchant j'avais pas trouvé =/

Donc ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
    Dim Woutlook As Outlook.Application
    Dim Wmess As Outlook.MailItem
    Dim Wfic As Outlook.Attachments
    Set Woutlook = New Outlook.Application
    Set Wmess = Woutlook.CreateItem(olMailItem)
    Set Wfic = Wmess.Attachments
 
email = Range("adresse").Value
 
Wmess.To = "" & email
 
 'Wmess.Cc = "Emmanuel MOREAU<A011518@maaf.fr>"
 
Wmess.Body = "Conformément au calendrier 2006 du Plan d'Action, vous voudrez bien trouver ci-joint le listage cité en objet." & _
Chr(10) + Chr(10) + "Nota: il est possible que votre liste soit vide; ce n'est pas une anomalie, mais une façon de vous informer qu'aucun contrat ou client n'est concerné." & _
Chr(10) + Chr(10) + "Cordialement." & _
Chr(10) + "Emmanuel MOREAU "
 
 
 
    Wmess.Subject = "AN < 12 mois  "
    Wfic.Add "F:\EM\listages_dalerte_auto\2005\4eme_trim\edition\" & Prefixe & Entite & ".xls"
 
Wmess.Send

Je ne suis pas sûr, comment l'utiliser ? Que changer ?

[Jihnn]

J'ai une erreur.


Dans les déclarations, j'ai mis cela :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
    Dim Woutlook As Outlook.Application
    Dim Wmess As Outlook.MailItem
    Dim Wfic As Outlook.Attachments
    Set Woutlook = New Outlook.Application
    Set Wmess = Woutlook.CreateItem(olMailItem)
    Set Wfic = Wmess.Attachments

Dans ma procédure Bouton_Click, j'ai mis

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
email = Range("adresse").Value
 
Wmess.To = "" & email
 
 'Wmess.Cc = "Emmanuel MOREAU<A011518@maaf.fr>"
 
Wmess.Body = "Conformément au calendrier 2006 du Plan d'Action, vous voudrez bien trouver ci-joint le listage cité en objet." & _
Chr(10) + Chr(10) + "Nota: il est possible que votre liste soit vide; ce n'est pas une anomalie, mais une façon de vous informer qu'aucun contrat ou client n'est concerné." & _
Chr(10) + Chr(10) + "Cordialement." & _
Chr(10) + "Emmanuel MOREAU "
 
 
 
    Wmess.Subject = "AN < 12 mois  "
    Wfic.Add "F:\EM\listages_dalerte_auto\2005\4eme_trim\edition\" & Prefixe & Entite & ".xls"
 
Wmess.Send

L'erreur, c'est :
Compile Error: Invalid Outside Procedure

VB me surligne alors le "Set" de "Set Woutlook = New Outlook.Application"


Merci d'avance

[SfJ5Rpw8]

j'ai fais une copie "tel-quel" de ton code chez moi ... ( sous excel VB... j'ai pas VB6 ici) et il marche ...!

tu as bien cocher la référence à Outlook dans la liste des référence ?

tu as bien outlook d'installer ( et fonctionnel) sur ta machine ( ne pas confondre avec outlook express)


PS: évite de mélanger tes probléme, je n'avais pas encore répondu à ce post car je ne comprenai pas le lien entre ton icône et ton mail !

[AlainTech]

J'ai une erreur.
L'erreur, c'est :
Compile Error: Invalid Outside Procedure

VB me surligne alors le "Set" de "Set Woutlook = New Outlook.Application"


Merci d'avance

"Invalid outside procedure" veut dire que le set doit être mis dans une procédure et pas dans la partie déclarations.

[Jihnn]

En fait, non je ne crois pas avoir Outlook d'installer.

J'avais dit dans un post antérieur que j'avais une info pour confirmer l'envoie d'un message. Un modérateur je crois m'a donné un lien qui se référrait à ce code, sans rien plus. J'ai essayé de me débrouiller...

Mon but : Envoyer un mail avec un fichier joint sans avoir d'erreur / confirmation. =/

[SfJ5Rpw8]

et finalement tu utilise quoi pour envoyer tes mails ? ... sous quel OS ?

[Jihnn]

Oula j'crois avoir des problèmes avec des forums, je post et les messages disparraissent ^^


Je suis sous Windows, et ce programme est conçu pour Windows ^^

Comme je l'ai précisé, ce n'est pas sûr que tous les utilisateurs du programme vont avoir Outlook. Mon but, c'est de réussir à envoyer un mail sans avoir aucune erreur (Sauf si bien évidemment le fichier joint n'existe pas ^^) et n'avoir aucun pop ups avertissant l'envoi d'un mail.
Pour l'icône, le problème est résolu.


Ensuite, il me faut aussi connaître un moyen d'envoyer le programme à son démarrage dans le dossier "C:\Documents and Settings\Propriétaire\Menu Démarrer\Programmes"
MAIS ! ce n'est pas sûr que l'utilisateur du programme est un francophone, donc le langage de l'OS peut très bien être en anglais.

Merci d'avance à tous ceux qui m'aident <3