Envoi Mail via Excel

Version imprimable

Bonjour tout le monde,

Je tente de créer un mail a partir d'excel en reprend des données saisies dans une feuille.
J'ai tenté ce code mais ca ne fonctionne pas. Une messa me dit quer "erreur de compilation sur CALL "
Pourriez vous m'aider ?

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
Sub MAIL()
 
Dim dossier As String
Dim nom As String
Dim guichet As String
Dim compte As String
Dim typologie As String
Dim montant As String
Dim devise As String
Dim nature As String
 
dossier = Range("C16").Value
nom = Range("C17").Value
guichet = Range("C18").Value
compte = Range("C19").Value
typologie = Range("C20").Value
montant = Range("C21").Value
devise = Range("C22").Value
nature = Range("C23").Value
 
objet = raison & " // Demande Produits & Services"
body = "Bonjour," & vbCrLf & vbCrLf & "Nous vous informons que votre demande, dont les caractéristiques sont reprises ci-dessous, sera prise en charge par " & agent & "." _
        & vbCrLf & "Numéro de dossier : " & dossier _
        & vbCrLf & "Nom client : " & nom _
        & vbCrLf & "Guichet : " & guichet _
        & vbCrLf & "Compte  : " & compte _
        & vbCrLf & "Type de recherche : " & typologie _
        & vbCrLf & "Montant : " & montant _
        & vbCrLf & "Devise : " & devise _
        & vbCrLf & "Commentaire/précision : " & nature _
        & vbCrLf & vbCrLf & "Bien cordialement," & vbCrLf & vbCrLf
 
Call EnvoyerMail(listeDestTo, objet, body, listeDestCC)
 
End Sub

04/07/2014, 14h53
Marc-L

Bonjour,

non car le code est incomplet ‼

Sinon voir la :faq: et les tutoriels sans compter les divers exemples sur :google2: et dans les discussions de ce forum !

mais justement ca fait une semaine que je cherche et que je ne trouve pas.
J'ai tenté tellement de code ... et je dois terminé mon projet d'ici 2 semaines.

ce code fonctionne j'ai tenté de l'adapté, mais ca ne marche pas.

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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
Sub MAIL()
''Déclaration des varaibles
'Dim oApp As New Outlook.Application
'Dim oMail As Outlook.MailItem
'Dim oAtt As Outlook.Attachment
 
Dim listeDestTo As New Collection
Dim listeDestCC As New Collection
Dim objet As String
Dim body As String
Dim raison As String
Dim siren As String
Dim agent As String
Dim support As String
Dim theme As String
Dim nature As String
 
raison = Range("C26").Value
agent = Range("I26").Value
siren = Range("D26").Value
support = Range("J26").Value
theme = Range("K26").Value
nature = Range("L26").Value
 
'oMail.Subject = raison & " // Demande Produits & Services"
'oMail.body = "Bonjour," & vbCrLf & vbCrLf & "Nous vous informons que votre demande, dont les caractéristiques sont reprises ci-dessous, sera prise en charge par " & agent & "." _
'& vbCrLf & "Contrepartie : " & raison _
'& vbCrLf & "Siren : " & siren _
'& vbCrLf & "Support de réception : " & support _
'& vbCrLf & "Thème : " & theme _
'& vbCrLf & "Commentaire/précision : " & nature _
'& vbCrLf & vbCrLf & "bien cordialement," & vbCrLf & vbCrLf
'
'oMail.Display
'
'Set oApp = Nothing
'Set oAtt = Nothing
 
objet = raison & " // Demande Produits & Services"
body = "Bonjour," & vbCrLf & vbCrLf & "Nous vous informons que votre demande, dont les caractéristiques sont reprises ci-dessous, sera prise en charge par " & agent & "." _
        & vbCrLf & "Contrepartie : " & raison _
        & vbCrLf & "Siren : " & siren _
        & vbCrLf & "Support de réception : " & support _
        & vbCrLf & "Thème : " & theme _
        & vbCrLf & "Commentaire/précision : " & nature _
        & vbCrLf & vbCrLf & "bien cordialement," & vbCrLf & vbCrLf
 
Call EnvoyerMail(listeDestTo, objet, body, listeDestCC)
 
End Sub

04/07/2014, 15h39
Invité

Bonjour,

nous ce que l'on voudrait voir ces le sub EnvoyerMail
04/07/2014, 15h41
isa0144

désolée je n'ai pas compris ta réponse, je débute dans la VBA
04/07/2014, 15h48
Invité

Citation:

Envoyé par isa0144

désolée je n'ai pas compris ta réponse, je débute dans la VBA

dans ton code tu fais appel à une procédure c'est celle là que nous voulons voire!

Code:

Call EnvoyerMail(listeDestTo, objet, body, listeDestCC) 'EnvoyerMail est une sub
04/07/2014, 23h37
patricktoulon

une solution parmi tant d'autre

Bonjour
c'est un probleme quand on debute et que l'on s'attaque ades procedure plus ou moins complexes
on a tendence a faire du copier coller sans en comprendre une ligne

mais bon puisque le copier coller semble te convenir je te suggere de regarder ma signature en bas de ma reponse et de cliquer sur mail cdo en vba

ce sera une solution parmi tant d'autre je precise

Au pla