Bonjour à tous,
J'ai un soucis pour envoyer mes Emails avec Excel sous le nouveau office 365 familly.
Ma programmation Excel/VBA fonctionne parfaitement avec Windows7 Excel 2010 je peux envoyer des emails via Excel.
Récemment j'ai un acheté un nouveau pc avec Windows10 Famille et office 365 familly. Mais dans le pack office Outlook n'existe plus…
Forcement ma programmation Excel/VBA ne fonctionne plus non plus.
Avec le Windows10 j'ai l'application COURRIER qui ressemble un peu à Outlook mais impossible de trouver la bonne programmation.
J'ai pensé à utiliser Mozilla Thunderbird même chose...cela ne fonctionne pas.
Dans ma programmation VBA Windows7 Excel 2010 j'ai bien OUTILS / REFERENCES / et cocher Microsoft OFFICE Object Library
En revanche dans le Windows 10 Excel familly je n'ai rien trouver….
Je ne vois pas de solution pour adapter mon programme avec le Windows10 Famille et l'office 365 Outlook
MERCI A VOUS SI VOUS AVEZ DES IDEES OU UNE SOLUTION QUE JE N'AI PAS PENSE ETANT PAS UN PROGRAMMATEUR PRO…
CORDIALEMENT CI-joint ma programmation qui fonctionne sous Windows7
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33 Private Sub CommandButton8_Click() Sheets("listepersonnel").Select Dim xOutApp As Object Dim xOutMail As Object Dim xMailBody As String On Error Resume Next Set xOutApp = CreateObject("Outlook.Application") Set xOutMail = xOutApp.CreateItem(0) xMailBody = "" On Error Resume Next Dim I As Variant, ListeMail As String I = 2 ' ligne de la première adresse While Cells(I, 1) <> "" ' tant que l'addresse en colonne 4 et sur la ligne I n'est pas vide If Not Intersect(Cells(I, 3).SpecialCells(xlCellTypeVisible), Cells(I, 3)) Is Nothing Then ' si la cellule précitée est visible ListeMail = ListeMail & ";" & Cells(I, 3) ' je l'ajoute à la liste End If I = I + 1 ' je regarde la ligne suivante Wend 'EnvoyerMail (ListeMail) ' j'envoie la liste à la sub d'envoi With xOutMail .To = "" .CC = "" .BCC = ListeMail .Subject = "" .Body = xMailBody .Display 'or use .Send .Send End With On Error GoTo 0 Set xOutMail = Nothing Set xOutApp = Nothing End Sub
Partager