Discussion :

[ZeFarFaDeT]

debutant et en plus stagiaire je dois envoyer un ensemble de fichier a ces destinataire ( jusque la rien de tres nouveau ).
la particalirité c kil y a un fichier excel ki ressence tous les adresse mail des destinataire et les fichier a envoyer ont la mm designation ke le nom du destinataire
exemple : il faut envoyer le fichier"aaa.xls" et l'adresse mail est dans le fichier excel sous aaa.
voila
si vous pouviez me donner deux trois piste histoire de....

il faut ke je le réalise sous VBA.

ps : si mon explication n'est pas clair demandez moi je donnerai moult details supplementaire


MERCI D'AVANCE

ps : desole pour ma syntaxe execrable..... [/b]

[grafikm_fr]

Bonjour,

Tout d'abord merci de lire les Règles du forum, de lire les tutoriels et la FAQ VB.

Ensuite,

Comme c'est ton premier post, je te pardonne, après je vais sévir

Il faut que tu cherches au minimum tes solutions par toi-meme, on va pas tout t'apporter sur un plateau...

[ZeFarFaDeT]

ok ok je lirai la FAQ
Le truc c ke jai deja chercher par moi même mais je n'ai trouver que des soluitions utilisant outlook or dans la boite où je suis il utilise Lotus, donc c la que ça coince.....

[grafikm_fr]

Le truc c ke jai deja chercher par moi même mais je n'ai trouver que des soluitions utilisant outlook or dans la boite où je suis il utilise Lotus, donc c la que ça coince.....

Ben tu aurais du préciser tout de suite que tu utilises Lotus, tu vois

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
 
Public Sub SendNotesMail(Subject As String, Attachment As String, Recipient As String, BodyText As String, SaveIt As Boolean)
'Set up the objects required for Automation into lotus notes
    Dim Maildb As Object 'The mail database
    Dim UserName As String 'The current users notes name
    Dim MailDbName As String 'THe current users notes mail database name
    Dim MailDoc As Object 'The mail document itself
    Dim AttachME As Object 'The attachment richtextfile object
    Dim Session As Object 'The notes session
    Dim EmbedObj As Object 'The embedded object (Attachment)
    'Start a session to notes
    Set Session = CreateObject("Notes.NotesSession")
    'Next line only works with 5.x and above. Replace password with your password
    Session.Initialize("password")
    'Get the sessions username and then calculate the mail file name
    'You may or may not need this as for MailDBname with some systems you
    'can pass an empty string or using above password you can use other mailboxes.
    UserName = Session.UserName
    MailDbName = Left$(UserName, 1) & Right$(UserName, (Len(UserName) - InStr(1, UserName, " "))) & ".nsf"
    'Open the mail database in notes
    Set Maildb = Session.GETDATABASE("", MailDbName)
     If Maildb.ISOPEN = True Then
          'Already open for mail
     Else
         Maildb.OPENMAIL
     End If
    'Set up the new mail document
    Set MailDoc = Maildb.CREATEDOCUMENT
    MailDoc.Form = "Memo"
    MailDoc.sendto = Recipient
    MailDoc.Subject = Subject
    MailDoc.Body = BodyText
    MailDoc.SAVEMESSAGEONSEND = SaveIt
    'Set up the embedded object and attachment and attach it
    If Attachment <> "" Then
        Set AttachME = MailDoc.CREATERICHTEXTITEM("Attachment")
        Set EmbedObj = AttachME.EMBEDOBJECT(1454, "", Attachment, "Attachment")
        MailDoc.CREATERICHTEXTITEM ("Attachment")
    End If
    'Send the document
    MailDoc.PostedDate=Now() 'Gets the mail to appear in the sent items folder
    MailDoc.SEND 0, Recipient
    'Clean Up
    Set Maildb = Nothing
    Set MailDoc = Nothing
    Set AttachME = Nothing
    Set Session = Nothing
    Set EmbedObj = Nothing
End Sub

Pour les CC et BCC c'est comme suit :

Code :

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

1
2
3
MailDoc.sendto = Recipient
MailDoc.CopyTo = ccRecipient
MailDoc.BlindCopyTo = bccRecipient

Pour les adresses multiples tu fais un tableau de variants contenant les adresses:

Code :

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

1
2
3
4
5
Dim recip(25) as variant
recip(0) = "emailaddress1"
recip(1) = "emailaddress2" e.t.c
 
maildoc.sendto = recip

Normalement, ce code marche, enfin j'espere

[ZeFarFaDeT]

jte remerci pour cette aide et je vais direct voir si le code fonctionne.

[voyageur]

moi je voudrais savoir si il est possible d'envoyer un mail sans utiliser un logiciel de messagerie comme outlook , juste avec du code vb.Comment faudrait il proceder :

[grafikm_fr]

voyageur >>

[ZeFarFaDeT]

en fait jai essayer le code ke tu mas fournis ( encore merci o passage )
avec kelque modification mais l'excution bute sur :

Code :

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

1
2
3
4
5
If Attachment <> "" Then 
        Set AttachME = MailDoc.CREATERICHTEXTITEM("Attachment") 
        Set EmbedObj = AttachME.EMBEDOBJECT(1454, "", Attachment, "Attachment") 
        MailDoc.CREATERICHTEXTITEM ("Attachment") 
    End If

Voila donc je vais chercher de mon coter pour voir si je peu le resourdre mais si tu as une illumination, o passage c une erreur de type 438, je pense ke cela est liée a lotus donc je vais chercher de ce coté.
bye

[ZeFarFaDeT]

En fait jai resolu mon probleme, ct comment dire une erreur de syntaxe de ma parts, oups .

Tu devrais mettre cette remarque dans la FAQ : ecrire un programme avec ses peieds c pas facile

Merci et considere le problême comme RESOLUT

[grafikm_fr]

Merci et considere le problême comme RESOLUT

Alors merci de mettre le tag [Résolu]