XL 2019 Problème incompatibilité de type

[jpmetge]

Bonjour,

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

Voici les références déclarées :

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

 

[soan]

Bonjour JPM,

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

par : Dim olApp As New Outlook.Application

OU essaye avec :

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

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

soan

 

[Staple1600]

Bonjour le fil, jpmetge, soan

Bizarre, Romain nous aurait parfaitement menti.

Sinon, selon la maison mère (a), il eut fallut écrire

Dim MonOutlook As Outlook.Application
Set MonOutlook= New Outlook.Application

Mais la même maison (b) nous dit aussi

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]

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]

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]

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)

How to Send Outlook to SMS

How to Send Outlook to SMS. Microsoft Outlook includes an SMS message feature that allows you to send text messages in the same way you would normally send or forward an email or calendar appointment to a contact. To use the standard, free Outlook SMS fea

smallbusiness.chron.com

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

 

[jpmetge]

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]

Re

Exact

Outlook 2016 - SMS program

Would like to download a program that allows me to send SMS to clients from my Outlook 2016. Does Outlook 2016 have this ability or will it need to be an external program? If you require any further

answers.microsoft.com

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 😉)