Discussion :

[hapen]

Bonjour,

Problème : Impossible d'utiliser objMessage.AddAttachment avec une variable.
Explication : Je possède dans un dossier en local sur mon poste, différents fichiers .pdf de la forme : JJ-MM-AAAA.pdf
Je souhaiterais envoyer en pièce jointe, le fichier correspond à la date actuelle.
Exemple : Nous somme le 13-7-2010, je souhaiterais envoyer le fichier en pièce jointe : 13-7-2010.PDF

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim madate
 
madate = Day(Now) & "-" & Month(Now) & "-" & Year(now)
 
Set objMessage = CreateObject("CDO.Message")
 
objMessage.Subject = "test"
objMessage.From = "@mail"
objMessage.To = "@mail"
objMessage.TextBody = "test"
objMessage.AddAttachment "c:\chemin\" & madate & ".pdf"
 .......

MERCI

[Fvandermeulen]

Salut,

Je viens de faire le test, aucun soucis pour l'attachment.
Les seules différences, c'est que par rapport à ton code j'ai bien utilisé une fonction pour la config du serveur SMTP et le chemin du répertoire.

J'imagine que ce n'est pas ça le soucis mais dans ton explication tu indiques un format de date JJ-MM-AAAA alors que tu n'utilise qu'un caractère pour le mois dans le nom de ton fichier...

A toute fin utile, voici le code que j'utilise pour la méthode d'envoi de mail par CDO.

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
37
38
39
40
41
42
43
44
45
46
47
48
49
Sub CDOMethod()
 
Dim Cdo_Message As Object
Dim madate As String
 
madate = Day(Now) & "-" & Month(Now) & "-" & Year(Now)
 
Set Cdo_Message = CreateObject("CDO.Message")
Const CdoTo = 1
Const CdoCc = 2
Const CdoBcc = 3
 
Set Cdo_Message.Configuration = GetSMTPServerConfig()
    With Cdo_Message
        .To = "LeNom" & Chr(64) & "adresse.com"
        .From = "info" & Chr(64) & "ExcelEtVous.be"
        .Subject = "Le Sujet"
        .HTMLBody = "Le Corps du message" & Cdo_Message.HTMLBody
        .AddAttachment "C:\Documents and Settings\frv\My Documents\" & madate & ".pdf"
        .send
    End With
Set Cdo_Message = Nothing
End Sub
 
Function GetSMTPServerConfig() As Object
' Microsoft CDO for Windows 2000 Library
    Const cdoSendUsingPickup = 1
    Const cdoSendUsingPort = 2
    Const cdoSendUsingMethod = "http://schemas.microsoft.com/cdo/configuration/sendusing"
    Const cdoSMTPServer = "http://schemas.microsoft.com/cdo/configuration/smtpserver"
    Const cdoSMTPServerPort = "http://schemas.microsoft.com/cdo/configuration/smtpserverport"
 
    Dim Cdo_Config As Object 'New CDO.Configuration
    Set Cdo_Config = CreateObject("CDO.Configuration")
    Dim Cdo_Fields As Object
    Set Cdo_Fields = Cdo_Config.Fields
 
    With Cdo_Fields
        .Item(cdoSendUsingMethod) = cdoSendUsingPort
        .Item(cdoSMTPServer) = "srv-mail.thalys.com" 'Adapter l'adresse SMTP
        .Item(cdoSMTPServerPort) = 25
        .Update
    End With
 
    Set GetSMTPServerConfig = Cdo_Config
    Set Cdo_Config = Nothing
    Set Cdo_Fields = Nothing
 
End Function

A+

[hapen]

je me suis trompé dans mon code,
ca marche quand:

Code :

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

madate = Month(Date) & "-" & Year(Date)

et ca ne marche plus quand:

Code :

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

madate = Month(Date) & "-" & Year(Date) & "_" & ActiveWorkbook.Name

par contre j'aimerais bien savoir pourquoi le deuxième cas ne marche pas

MERCI

[Fvandermeulen]

Et que te renvoi ActiveWorkbook.name ?

Est-ce bien ce que tu attends ?

[hapen]

en fait mon ActiveWorkbook.name me renvoit bien le nom de mon fichier mais avec un .XLS.
c'est ce .XLS qui derrange.


MERCI

[Fvandermeulen]

J'avoue ne pas (plus) savoir si on peut récupérer directement sans l'extention mais au pire tu peux extraire que ce dont tu as besoin

Code :

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

NomFichier = Mid(ActiveWorkbook.Name, 1, len(ActiveWorkbook.Name) - 4)

A+