[vba excel outlook] envoie de message via vba

Version imprimable

10/08/2006, 17h25
ash_rmy

[vba excel outlook] envoie de message via vba
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:

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.
10/08/2006, 22h21
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...

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:

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

11/08/2006, 15h19
ash_rmy

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

1 2 Application.DisplayAlerts = False Application.enableEvents = False
merci de m'aider.

ash_rmy
11/08/2006, 16h11
SilkyRoad

bonjour

tu peux tester cette methode

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

bon apres midi
michel