Envoyer Mail: pb Type

[Provence Vintage]

Bonjour le Fil,

Avec ce code trouvé sur le Forum, vba m'affiche le message suivant:
"Type défini par l'utilisateur non défini"



#Sub EnvoyerMail()
Dim OLApplication As Outlook.Application, OLMail As Outlook.MailItem
Set OLApplication = CreateObject("Outlook.Application")
Set OLMail = OLApplication.CreateItem(OLMailItem)
With OLMail
.To = LabeLmail '<-- Ici je veux coller la liste des destinataires se trouvant en colonne A à partir de la cellule A2 en copie cachée
.Importance = olImportanceNormal
.Subject = "Proposition de Biens immobiliers" 'Objet
.Body = ""
.Categories = "Daily"
.OriginatorDeliveryReportRequested = True 'Accusé de dépôt
.Display '<-- Pour vérifier le mail avant l'envoi
End With
Set OLApplication = Nothing
Set OLMail = Nothing
End Sub#

Je sais que ce genre de question est un "grand classique", mais là...

Merci et bonne journée à toutes et tous🙂

 

[Pierrot93]

Re : Envoyer Mail: pb Type

Bonjour,

A la vue de tes déclarations de variable, il semblerait qu'il faille cocher la référence adéquate :

Dans l'éditeur vba => barre de menu => outils => références, tu coches la référence "microsoft outlook 11.0 object library", ou le 11.0 correspond à la version excel installée sur ton poste.

bon après midi
@+

 

[Provence Vintage]

Re : Envoyer Mail: pb Type

Bonjour Pierrot, le Fil

je venais de trouver en même temps que ta réponse sur le Forum!
Par contre je cherche à rajouter le choix compte de messagerie (avec la signature pré-enregistrée) et là c plus dur!
Si tu as une idée
Bon après-midi
merci

 

[Pierrot93]

Re : Envoyer Mail: pb Type

Re

non, pas d'idée sur le sujet et pas outlook à disposition pour test, désolé de ne pouvoir t'aider plus...

 

[Staple1600]

Re : Envoyer Mail: pb Type

Bonjour à tous

Provence Vintage
Tu peux indiquer le lien du fil d'où provient ce code stp ?

 

[Provence Vintage]

Re : Envoyer Mail: pb Type

Bonjour Pierrot, Stapple,

je n'ai pas retrouvé le lien du forum,
par contre, j'avais copié des bouts de code dont le "Function"
qui ne fonctionne pas chez moi:

#Dim sigstring As String
Dim signature As String
sigstring = "C:\documents and settings\" & Environ("username") & "\application data\microsoft\signatures\signature.txt"
signature = GetBoiler(sigstring)


Function GetBoiler(ByVal sFile As String) As String
'Dick Kusleika
Dim fso As Object
Dim ts As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.GetFile(sFile).OpenAsTextStream(1, -2)
GetBoiler = ts.readall
ts.Close
End Function#

merci
bonne journée