Code pour envoi mail outlook via excel

[zombe]

Salut à tous

J'ai un code (collé dans thisworkbook) qui normalement devrait me permettre d'envoyé la feuille active par mail.
C'est un code que j'ai copié dans le forum et essayé d'adapter à mon cas.
Mais quand j'exécute le code, le message suivant apparait : DEPASSEMENT DE CAPACITE.
N.B:j'ai bien coché Microsoft Outlook Object Library.
Je sais pas pourquoi ca marche pas.
Quelqu'un peut-il m'aider? J'utilise office 2007 donc outlook pour ma messagerie.
Ci-joint le fichier

Sub SendMail_Outlook()
 
'Macro adaptée par Dan pour Yvouille - XL pratique le 06/05/10
'http://forum.excel-pratique.com/excel/insertion-automatique-d-adresses-electroniques-t16935.html

Dim ol As New Outlook.Application
Dim olmail As MailItem
Dim nblig  As Long
Dim i As Integer
Dim MailAd As String, MailAd1 As String
Set ol = New Outlook.Application
Set olmail = ol.CreateItem(olMailItem)
nblig = ActiveSheet.Rows.Count
For i = Range("B" & nblig).End(xlUp).Row To 2 Step -1
MailAd = Range("B" & i) & ";"
MailAd1 = MailAd & MailAd1
Next i
With olmail
.To = "benzo01@hotmail.com"
'.CC = ""   ''''''''''''''''''''''''''pour le cas des copies du message à une autre liste
.Subject = "ESSAI BOOM PLUS"
.Body = "Le texte peut également être préparé ici"
.Attachments.Add ThisWorkbook.Path & "\" & ThisWorkbook.Name
.Display
End With
End Sub

 

[Grand Chaman Excel]

Re : Code pour envoi mail outlook via excel

Bonsoir zombe,

Je crois que ton problème est à cause de ta variable "i" défini comme un entier (integer). La valeur maximale que peut prendre ta variable est de 32767. Si ta dernière ligne dans la colonne B est plus grande que 32767, ça va causer une erreur de dépassement de capacité.
Essaie en écrivant Dim i as long.
Sinon, dis-nous à quelle ligne ton code plante...
A+

 

[zombe]

Re : Code pour envoi mail outlook via excel

Salut grand chaman
Merci pour votre réponse.
J'ai corrigé la déclaration de la valeur de i par votre proposition.
En exécutant le code, voici le message qui s'affiche :
Erreur de compilation :
type defini par l'utilisateur non defini.
le curseur se positionne sur la declaration ci-dessous.
dim ol As New Outlook.Application
Pouvez-vous revoir pour moi svp?

 

[david84]

Re : Code pour envoi mail outlook via excel

Bonjour,
vérifie que Microsoft Outlook xx.0 Object Library est bien coché (même si tu l'as précisé dans ton 1er message).
A+

 

[Staple1600]

Re : Code pour envoi mail outlook via excel

Bonjour à tous

zombe: il eut été logique que tu poses la question à la source non ?
(au fait merci de la citer, c'est rare de nos jours 😉)

'Macro adaptée par Dan pour Yvouille - XL pratique le 06/05/10
'http://forum.excel-pratique.com/excel/insertion-automatique-d-adresses-electroniques-t16935.html

Sinon pour ton problème, je t'invite à rendre visite à Ron De Bruin, il adore Excel et les emails.
(son site est souvent cité sur le forum)

EDITION: Re JNP

 

[JNP]

Re : Code pour envoi mail outlook via excel

Bonjour le fil 🙂,
Si je peux me permettre, plus de 32000 adresses 😱...
Au premier envoi, tu seras blacklisté par la plupart des opérateurs 😛...
Tu as intérêt à faire des paquets de 50, et à séparer tes envois d'un peu de temps 🙄...
De plus, les variables String sont limitées à 63ko de caractères, donc tu vas de nouveau être en dépassement de capacité 😉...
Bonne suite 😎