Discussion :

[ash_rmy]

bonjour tt le monde - voila j'aimerais envoyer un message à l'aide de vba à mes amis pour qu'il recoicent des classeurs excels - je voudrais ne pas avoir de message d'erreur outlook - c'est embetant de l'avoir

merci de m'aider - ash

voici le code :

Code :

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

1
2
3
4
5
6
Sub maiiil()
 
ActiveWorkbook.SendMail Recipients:="ashwyn@hotmail.com", Subject:=hi, returnreceipt:=False
 
 
End Sub

je ne trouve pas la syntaxe (pourtant je l'ai lu ce matin )je sais c'est du genre
enabled=false je crois.

[biggione]

il me semble que des question similaires existe dans des sujet deja présent. fais une recherche sur les sujets avec les mots message erreur apparition ou bien empecher evenement...

[ash_rmy]

salut,

j'ai essayer plusieurs syntaxe différentes et j'ai regardé les précédents messages relatifs aux bloquage de message d'alerte : je ne trouve pas.

cependant j'ai amélioré le prog vba (si cela vous intéresse) - mais j'ai tjs le même problème

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
25
26
27
28
29
30
31
32
33
34
35
36
Sub EnvEmail()
 
Dim AppOutlook As Outlook.Application
Dim message As Outlook.MailItem
Dim myRecipient As Object
 
'Lance une session Microsoft Outlook
Set AppOutlook = CreateObject("outlook.application")
 
'Crée un nouveau message
Set message = AppOutlook.CreateItem(olMailItem)
 
With message
 
 
'Titre,Texte,Destinataire,Pièces jointes du message
    .Subject = "HELLO"
    .Body = "BONJOUR LES AMIGOS" _
    & Chr(13) & "Sincères salutations," & Chr(13) _
    & "ASH"
    .BodyFormat = olFormatHTML
    .Recipients.Add ("ash_rmy")
        'Recipients.Add ("")
    '.Attachments.Add ThisWorkbook.Path & "\" & ThisWorkbook.Name
 
    'Envoie le message
    .Send
End With
 
'Quite l'application Outlook
AppOutlook.Quit
 
'Réinitialise l'objet
Set AppOutlook = Nothing
 
End Sub

[ash_rmy]

j ai essayé ce code - qui me semblait pourtant le plus adéquat - sa ne marche pas

Code :

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

1
2
Application.DisplayAlerts = False
Application.enableEvents = False

merci de m'aider.

ash_rmy

[SilkyRoad]

bonjour

tu peux tester cette methode

http://vb.developpez.com/faq/?page=Reseau#mailsmtp


bon apres midi
michel