Bonjour tout le monde et merci a l'avance de prendre le temps de lire mon message.

J'ai cree une page en VBA de facturation permettant de se remplir automatiquement.

La macro pour laquelle je fais appel a votre aide sert a envoyer par mail (outlook) une selection de cellules.

A la premiere utilisation, ca fonctionnait mais depuis j'ai eteint et rallume mon pc et ca ne fonctionne plus.

Le message d'erreur est le suivant: "run-time error '462': the remote server machine does not exist or is unavailable"

Apres une journee de recherche sur les forums anglais et francais je ne trouve pas de solution satisfaisante.

Je vous joins mon code:

Sub courriela()
Dim c As String
Dim testv As Integer
Worksheets("IHC").Select


ActiveSheet.Range("A1:J49").Select ' la plage de cellules à envoyer
ActiveWorkbook.EnvelopeVisible = True
c = Cells(27, 15)
testv = 0
For i = 1 To 100
If Mid(c, i, 1) = "@" Then
Worksheets("IHC").Select
With ActiveSheet.MailEnvelope 'LE PROGRAMME BUG ICI
.Introduction = "Bonjour, veuillez trouver ci-dessous la cotation de votre demande de transport. "
.Item.To = c
.Item.Subject = "Devis cotation"
.Item.send
End With
i = 100
testv = 1
Sheets("TOWN").Select
Sheets("IHC").Select
End If

Cells(27, 15) = ""

If i = 100 And testv = 0 Then
MsgBox "Veuillez rentrer une adresse valide"
ActiveWorkbook.EnvelopeVisible = False

End If

Next


End Sub

Quelqu'un aurait-il une solution pour palier ce probleme?
J'ai lu qu'il existe une fonction olmail permettant d'envoyer des mails automatiquement en vba mais je n'arrive pas a copier coller ma plage de cellules.

Merci en tout cas si vous avez des idees a me faire partager.

Cordialement.
Adrien