- Code : Tout sélectionner
Option Public
Use "MailLibrary_fr-FR"
Sub Initialize
'declare local variables
Dim x As Integer
'instantiate objects
InstantiateVariables
If Not collection Is Nothing Then
If (collection.Count = 0) Then
Messagebox "Aucun document sélectionné.",0,"Erreur"
Exit Sub
End If
Else
Exit Sub
End If
Redim SendToNames(collection.Count-1)
'for each document in the collection, get the mail address
'we use the GetNth method since the resulting collection is an IDTable
For x = 1 To collection.Count
Set note = collection.GetNthDocument(x)
SendToNames(counter) = GetMailAddress
counter = counter + 1
Next
Dim workspace As New NotesUIWorkspace
Set mailnote = New NotesDocument(maildb)
Dim doc As NotesDocument
Set uidoc = workspace.CurrentDocument
Set doc = uidoc.Document
mailnote.SendTo = SendToNames
mailnote.BlindCopyTo = "baclients@toto.com"
mailnote.Subject = doc.CompanyName(0)& " : Bulletin d'analyse"
mailnote.body = "Veuillez trouver ci-joint le(s) bulletins(s) d'analyses de votre dernière commande. Cordialement"
mailnote.Form = "Memo"
mailnote.Logo = profile.DefaultLogo(0)
mailnote.Principal = profile.Owner(0)
Call ws.EditDocument(True,mailnote)
End Sub
Que feriez vous pour remettre cela dans l'ordre.
Merci d'avance de vos réponses.
