Bonjour,
Je veux envoyé un mail depuis une boite de dialogue et cela ne fonctionne pas
Je ne trouve pas, j'ai fais à peut près la même chose dans un autre dossier qui marche
C'est tres certainement a cuse "de la peux pres" ....
J'ai une erreur à la premier ligne :
erreur de compilation => variable non définie
Et cela ce porte sur "appoutlook"
J'ai pas mis toutes les variables mais elles doivent marché, le PB est juste sur outlook ...
Dans les préférences VBA j'ai bien cocher : Microsoft Office Outlook View Control
Merci de votre aide
pous
Je veux envoyé un mail depuis une boite de dialogue et cela ne fonctionne pas
Je ne trouve pas, j'ai fais à peut près la même chose dans un autre dossier qui marche
C'est tres certainement a cuse "de la peux pres" ....
'Envoyer_Mail
Dim ObjOutlook As Object
Dim objEmail As Object
Dim oBjMail
Set appoutlook = CreateObject("outlook.application")
Set mailoutlook = appoutlook.CreateItem(olMailItem)
With mailoutlook
Email1= Me.labEmail1
.Attachments.Add "C:\Users\" & USER & "\Desktop\" & NomDI & ".xlsm"
.To = Email1 ' le destinataire
.cc = Email_agence & ";" & Email_agence2 & ";" & Email_SAV & ";" & Nom_DTS
'.BCC =
.Subject = NomDI ' l'objet du mail
.HTMLBody = "Madame, Monsieur, <br><br>" _
& "Veuillez trouver ci-joint une DI pour action !!<br>" _
& "Merci de transmettre le rapport d'intervention à remplir sur site à votre intervenant.<br>" _
& "<br>" _
& "<br>" _
& "Nous restons à votre disposition pour tous renseignements complémentaires. <br><br>" _
& "Salutations distinguées/ Mit freundlichen Grüssen/ Kind regards <br>" _
& "<font color= red><br><br>" _
.Display
End With
J'ai une erreur à la premier ligne :
erreur de compilation => variable non définie
Et cela ce porte sur "appoutlook"
J'ai pas mis toutes les variables mais elles doivent marché, le PB est juste sur outlook ...
Dans les préférences VBA j'ai bien cocher : Microsoft Office Outlook View Control
Merci de votre aide
pous
Dernière édition: