Besoin d'aide Urgent

Bonjour

J'ai essayer avec mes petites connaissances d'écrire une macro mais elle ne fonctionne pas. Il y a un bug.

Je souhaiterais recevoir un mail à l'ouverture d'un fichier utiliser par tous afin que je puisse faire les analyses de risques des anomalies enregistrées.

voici la macro en question

Sub Workbook_Open()

'

' Macro recorded 26/07/2016 by Sabine GANACHAUD 3M

'

Worksheets("RAP Matrix").Range("B53") = ""

Sheets("EHS - DEVIATION (IR)").Select

SendOutlookMail

End Sub

Sub SendOutlookMail()

Dim Maildb As Object 'La boite mail

Dim UserName As String 'L'utilisateur du mail

Dim MailDbName As String 'Le nom de boite mail de l'utilisateur

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)

Set Session = CreateObject("Outlook.Application")

UserName = Session.UserName

MailDbName = Left$(UserName, 1) & Right$(UserName, (Len(UserName) - InStr(1, UserName, " "))) & ".nsf"

Set Maildb = Session.GetDatabase("", MailDbName)

If Maildb.IsOpen = True Then

Else

Maildb.OPENMAIL

End If

'Set up the new mail document

Set MailDoc = Maildb.CreateDocument 'créer un email

MailDoc.Form = "Memo"

MailDoc.SendTO = "sganachaud@mmm.com"

MailDoc.Subject = "EHS AC&AP Wims!"

MailDoc.body = "Bonjour, j'ai fait un enregistremen tdans le fichier. Cordialement"

MailDoc.SAVEMESSAGEONSEND = True

'Send the document

MailDoc.PostedDate = Now()

'Clean Up

Set Maildb = Nothing

Set MailDoc = Nothing

Set AttachME = Nothing

Set Session = Nothing

je remercie d'avance toutes les personnes qui m'apporterons de l'aide .

Sabine

bonsoir Sabine38

commence par lirehttps://forum.excel-pratique.com/annonces/explications-et-regles-a-respecter-t13.html paragraphe 3

et mettre ton code entre balise en cliquant justement sur le bouton code

après cela tu auras peu etre plus de chance d'avoir une réponse

Bonjour

Je vois pas ce que tu veux me dire, peux tu m'expliquer ? merci d'avance bonne journée

bonjour sabine38

change le titre de ton post pour être plus percutant de ce que tu désire comme tu souhaite réceptionner un mail

autre mettre le code entre balise c'est quand tu réponds ou envoie un message au dessus tu as toute une ligne avec divers boutons vert sur 1 il y a écrit "code" tu clic dessus avant d'insérer ton code et voici

il y le curseur qui attends le code entre les crochets

autrement si tu as déja mis ton code tu le sélectionne et tu clic sur "code"

Bonjour et

comme la dit Grisan renomme ton post convenablement.... en mettant les balises qui vont bien...

mais aussi il manque quelques informations pour qu'on puisse t'aider....

dans le mail reçu tu veux seulement recevoir un mail, un mail + une pièce jointe (la feuille active du fichier par exemple en quel format ?? xls, pdf, ...)

après il y a quelque chose que je ne connais pas dans ton code c'est

Dim Maildb As Object 'La boite mail
Set Maildb = Session.GetDatabase("", MailDbName)

a quoi cela correspond ?? a priori l'utilisateur doit avoir son Outlook de paramétré pour envoyé des mails non ??? ou tu es sur des postes ou l'utilisateur est itinérant ???

pourrais tu developper un peu plus la demande...

a te relire

Fred