XL 2019 Problème incompatibilité de type

jpmetge

XLDnaute Nouveau
Bonjour,

Je voudrais exécuter une macro vba mais j'obtiens le message d'erreur suivant :
1617491923575.png

1617491982133.png

Voici les références déclarées :
1617492039023.png

Quelqu'un peut-il m'aider ?
Merci d'avance
JPM
 

soan

XLDnaute Barbatruc
Inactif
Bonjour JPM,

essaye en remplaçant Dim MonOutlook As New Outlook.Application

par : Dim olApp As New Outlook.Application

OU essaye avec :

VB:
Set MonOutlook = Outlook.Application
Set myMobileItem = MonOutlook.CreateItem(olMobileItemSMS)

d'après moi, c'est l'un ou l'autre, au choix ! 😁

soan
 

Staple1600

XLDnaute Barbatruc
Bonjour le fil, jpmetge, soan

Bizarre, Romain nous aurait parfaitement menti.

Sinon, selon la maison mère (a), il eut fallut écrire
Code:
Dim MonOutlook As Outlook.Application
Set MonOutlook= New Outlook.Application
Mais la même maison (b) nous dit aussi
VB:
Sub CreateMobileItemSMS() 
 Dim olApp As Outlook.Application 
 Dim myMobileItem As Outlook.MobileItem  
 Set olApp = Outlook.Application  
 Set myMobileItem = olApp.CreateItem(olMobileItemSMS) 
 myMobileItem.Body = "Text message was created by OM!" 
 myMobileItem.Display 
 End Sub
Alors qui croire?
Romain, Microsoft (a), Microsoft (b) et soan ?
Je ne sais pas, je ne sais plus mais c'est pas grave j'utilise pas Outlook pour envoyer des SMS ;)

NB: Avoir le code VBA fonctionnel ne fera pas tout (d'après ce que je suis en train de lire)
Il faudra aussi: Set Up the SMS Text Message Service on Outlook
(sauf si ...
To use the standard, free Outlook SMS feature your business must have a Microsoft Exchange Server 2010 account and a smartphone or wireless device running the Windows Mobile 6.5 operating system or later.
 

jpmetge

XLDnaute Nouveau
Bonjour et Merci beaucoup Stapple 1600.
La deuxième proposition fonctionne correctement.
Maintenant, si je peux abuser encore de ta compétence, je t'explique la finalité de ma macro :
Je souhaite envoyer des SMS/MMS depuis Outlook 2019 en passant par ma macro.
Celle-ci s'exécute bien jusqu'à l'envoi du message mais Outlook me rejette, il ne reconnait pas le n° de téléphone.
Voici le code VBA :
Sub smsetmms()

'Dim MonOutlook As New Outlook.Application
Set MonOutlook = Outlook.Application
Set myMobileItem = MonOutlook.CreateItem(olMobileItemSMS)
'Dim myMobileItem As Outlook.MobileItem
Dim chaine As String
Dim icong As Object
Dim Flds As Object

Set olApp = Outlook.Application
Set myMobileItem = olApp.CreateItem(olMobileItemSMS)
Set iConf = CreateObject("cdo.configuration")

Sheets("Feuil1").Select
'For Ln = Cells(Rows.Count, 19).End(xlUp).Row To 6 Step -1
Ln = 1
'If Cells(Ln, "A").Value Like "*+33*" And Cells(Ln, "C").Value > Date + 11 And Cells(Ln, "C").Value < Date + 16 And Cells(Ln, "S").Interior.ColorIndex = 2 Then
If Cells(Ln, "A").Value Like "*+33*" Then
Rows(ActiveCell.Row).Select
'Set myMobileItem = olApp.CreateItem(olMobileItemSMS)
myMobileItem.To = Cells(Ln, "A").Value
myMobileItem.Body = "test"
'
myMobileItem.Display (True)

Cells(Ln, "A").Interior.ColorIndex = 44
Else
GoTo LigneSuivante
End If

LigneSuivante:
' Next Ln
End

Set MonOutlook = Nothing

End Sub
 

jpmetge

XLDnaute Nouveau
Oups, je n'avais pas tout lu!
Peux-tu m'expliquer le "Set Up the SMS Text Message Service on Outlook" ?
Je dois le mettre dans ma macro ou est-ce un paramétrage dans Outlook ?
J'espère ne pas abuser de ton temps, et je te souhaite de joyeuses fêtes de Pâques 🥚🥚🥚
 

Staple1600

XLDnaute Barbatruc
Re

Alors un petit coup de G..gle Translate est indolore les dimanche de Pâques. ;)
(à cause des chocolats à disposition qui font pétiller nos neurones)

NB: Joyeuses Pâques (covidées) bis
 

jpmetge

XLDnaute Nouveau
Merci pour ta réponse, mais je crois que depuis Outlook 2010 cette fonctionnalité n'est plus possible.
Je vais donc devoir passer par une solution payante de type SMS Factor.
Mon objectif était de traiter des réclamations depuis un seul fichier excel, en donnant une réponse soit par mail (ça je sais faire), soit par SMS.
Merci encore pour ton investissement
Sincèrement
JPM
 

Staple1600

XLDnaute Barbatruc
Re

Exact
Il faut donc sortir les pépètes (sauf erreur de ma part)
Ou privilégier l'envoi par mails.
(Tu créeras ainsi moins de clients nomophobes ;))
 

Discussions similaires

Réponses
2
Affichages
537

Statistiques des forums

Discussions
315 111
Messages
2 116 340
Membres
112 721
dernier inscrit
Ulricn