.AddAttachment avec variable

Version imprimable

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:

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

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:

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+

13/07/2010, 11h01
hapen

.Addatachment avec variable

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

Code:

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

et ca ne marche plus quand:

Code:

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

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

MERCI
13/07/2010, 11h08
Fvandermeulen

Et que te renvoi ActiveWorkbook.name ?

Est-ce bien ce que tu attends ?
13/07/2010, 12h16
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
13/07/2010, 12h25
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:

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

A+
13/07/2010, 16h57
hapen

merci beaucoup pour ton aide.

Ca ma vraiment aidé pour finaliser ma macro.

MERCI