mot de passe pour ouvrir outlook par macro

[julie999]

bonjour
je n'ai pas trouvé sur lr forum le code pour indiquer le mot de passe outlook lors de l'envoie d'email
quelqu'un le connait
voici mon bout de code
il me faut rajouter une ligne pour indiquer le mot de passe outlook"toto"

'--- Envoi par mail
Dim olapp As Object 'Outlook.Application
Sheets("Envoie Email").Select
Range("B18").Select

Set olapp = CreateObject("Outlook.Application")
Do While Not IsEmpty(ActiveCell)
Dim msg As Object 'MailItem
Set msg = olapp.CreateItem(0)
msg.To = ActiveCell.Value

msg.Subject = Range("B5").Value
msg.CC = Range("b25").Value
msg.Body = Range("B8").Value & Chr(13) & Chr(13) & Range("B9").Value & Chr(13) & Chr(13) & Range("B10").Value & Chr(13) & Chr(13) & Range("B11").Value & Chr(13) & Chr(13) & Range("B12").Value & Chr(13) & Chr(13) & Range("B15").Value & Chr(13) & Chr(13)
msg.Attachments.Add répertoireAppli & "\Cross Docking PHOTOBOX du " & _
Format(Worksheets("cross docking").Range("a4"), "d\-mm\-yyyy") & ".xls"
msg.Send
ActiveCell.Offset(1, 0).Select
Loop
Set msg = Nothing
Set olapp = Nothing
je continue mes recherches
Julie

 

[julie999]

Re : mot de passe pour ouvrir outlook par macro

re le fil
n'y a t il pas de solution ??
on doit ouvrir outlook avant ??
Julie

 

[julie999]

Re : mot de passe pour ouvrir outlook par macro

bonjour
je remonte le fil en espérant trouvé une personne pouvant m'aider
Julie