J'essaie d'ouvrir un modèle d'e-mail Outlook 2010 avec Excel. Je reçois l'erreur suivante:Essayer d'ouvrir un modèle d'e-mail Outlook avec Excel VBA
« Erreur d'exécution '-2147287038 (80030002)': Impossible d'ouvrir le fichier: C:. \ My \ Path \ MyTemplate.oft Le fichier peut ne pas exister, peuvent ne pas être Cliquez avec le bouton droit sur le dossier qui contient le fichier, puis cliquez sur Propriétés pour vérifier vos autorisations pour le dossier.
Le fichier existe (au bon endroit), j'ai vérifié les permissions (dans la mesure où je sais comment), et le fichier n'est pas déjà ouvert.
Voici mon code:
Sub Mail_experiment()
Dim OutApp As Outlook.Application
Dim OutMail As Outlook.mailitem
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItemFromTemplate("C:\My\Path\MyTemplate.oft")
On Error Resume Next
With OutMail
.to = "[email protected]"
.CC = ""
.BCC = ""
.Subject = "This is my Subject line"
.Send
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
End Sub
Merci pour toute aide !!!
Votre code fonctionne correctement sur mon système. Si le fichier n'existe pas, j'obtiens une erreur d'exécution 42. (Nom de fichier ou nom de classe introuvable lors de l'opération d'automatisation). Je peux réellement ouvrir le modèle manuellement pendant que le code fonctionne sans erreurs. Que se passe-t-il lorsque vous naviguez vers votre fichier de modèle "C: \ My \ Path \ MyTemplate.oft" et que vous essayez de l'ouvrir manuellement? –
Je peux l'ouvrir manuellement. Je ne peux tout simplement pas le faire avec VBA. Je l'ai essayé avec Outlook ouvert, et avec Outlook fermé. Je peux envoyer de NOUVEAUX emails en utilisant du code. Je ne peux pas ouvrir le modèle. –
Kevin, j'ai oublié de montrer mon appréciation pour vos efforts. Je vous remercie! –