Migration sur office365

Bonjour,

Il y a un code qui ne fonctionne plus depuis migration vers office365

nom = ActiveWorkbook.Name

Dim OLAPP As Outlook.Application

Dim olitem As Outlook.MailItem

Set OLAPP = CreateObject("outlook.application")

Set olitem = OLAPP.CreateItem(olMailItem)

Merci d'avance

Bonjour,

pour que ces 2 premières instructions fonctionnent, il faut la référence à outlook en vba. Quant à la 3ème, elle fonctionnera par un heureux hasard (olmailitem devenant une variable non initialisée, qui prendra la valeur 0 au moment de son exécution, valeur 0 qui est aussi la valeur que la référence à outlook lui aurait donnée)

Dim OLAPP As Outlook.Application
Dim olitem As Outlook.MailItem
Set olitem = OLAPP.CreateItem(olMailItem)

donc vérifie si la référence à outlook est bien activée en VBA. SI cela ne corrige pas le problème, et bien comme d'habitude :

le fichier, le message d'erreur, l'instruction en erreur, bref, des infos de base permettant de t'aider.

Bonjour,

Je souhaite que cela déclenche envoi par outlook office365 et non outlook. merci à vous

Sub mail_retour_OK()

nom = ActiveWorkbook.Name

Dim OLAPP As Outlook.Application

Dim olitem As Outlook.MailItem

Set OLAPP = CreateObject("outlook.application")

Set olitem = OLAPP.CreateItem(olMailItem)

With olitem

.To = ActiveCell.Value

.CC = "toto@gmail.com"

.Subject = "Le remplacement est ACCEPTE" & "(" & nom & ")"

.Body = "Bonjour," & Chr(13) & Chr(13) & _

"Demande de remplacement :" & Chr(13) _

& "La demande de remplacement de : " & CHOIX_RETOUR.Label2 & CHOIX_RETOUR.Label1 & _

Chr(13) & "est ACCEPTEE" _

& Chr(13) & Chr(13) & "Cordialement."

.Display

End With

'

Application.ScreenUpdating = True 'permet de figer l'écran

End Sub

Rechercher des sujets similaires à "migration office365"