Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Nicolas PIEROT
Bonjour,
Pour publier un formulaire qui remplace un autre j'utilise une macro :
Sub ChangeForm() Set olApp = New Outlook.Application Set olNS = olApp.GetNamespace("MAPI") Set CalendarFolder = olNS.GetDefaultFolder(olFolderCalendar) Set CalendarItems = CalendarFolder.Items For Each Itm In CalendarItems If Itm.MessageClass <> "IPM.Appointment.XXX" Then Itm.MessageClass = "IPM.Appointment.XXX" Itm.Save End If Next MsgBox "Fait!" End Sub
je voudrais publier un formulaire dans la libraire.
Est-ce qu'il y a un autre moyen que de passer par Outlook (Outils/Formulaires/Publier Formulaire)?
Merci de votre aide!
Bonjour,
Pour publier un formulaire qui remplace un autre j'utilise une macro :
Sub ChangeForm()
Set olApp = New Outlook.Application
Set olNS = olApp.GetNamespace("MAPI")
Set CalendarFolder = olNS.GetDefaultFolder(olFolderCalendar)
Set CalendarItems = CalendarFolder.Items
For Each Itm In CalendarItems
If Itm.MessageClass <> "IPM.Appointment.XXX" Then
Itm.MessageClass = "IPM.Appointment.XXX"
Itm.Save
End If
Next
MsgBox "Fait!"
End Sub
Pour publier un formulaire qui remplace un autre j'utilise une macro :
Sub ChangeForm() Set olApp = New Outlook.Application Set olNS = olApp.GetNamespace("MAPI") Set CalendarFolder = olNS.GetDefaultFolder(olFolderCalendar) Set CalendarItems = CalendarFolder.Items For Each Itm In CalendarItems If Itm.MessageClass <> "IPM.Appointment.XXX" Then Itm.MessageClass = "IPM.Appointment.XXX" Itm.Save End If Next MsgBox "Fait!" End Sub
je voudrais publier un formulaire dans la libraire.
Est-ce qu'il y a un autre moyen que de passer par Outlook (Outils/Formulaires/Publier Formulaire)?
Merci de votre aide!
-=lolol=-
Bonjour Nicolas, bonjour à tous
Pardonnez moi cette intrusion (un poil HS) dans ce fil.
Je bidouille pas mal VBA surtout sur excel et dans les macros destinées à outlook que je vois passer, la même chose m'interpelle à chaque fois ... donc afin d'éviter de rester dans mon inculture, je m'interroge ...
Dans ta macro
Sub ChangeForm() Set olApp = New Outlook.Application
Tu crées un objet qui correspond à une session outlook (?), ok
Set olNS = olApp.GetNamespace("MAPI")
En termes simples, qu'est que le GetNamespace("MAPI") ? Qui est MAPI ?
merci pour tes précisions @+lolo
Bonjour Nicolas, bonjour à tous
Pardonnez moi cette intrusion (un poil HS) dans ce fil.
Je bidouille pas mal VBA surtout sur excel et dans les macros destinées à
outlook que je vois passer, la même chose m'interpelle à chaque fois ...
donc afin d'éviter de rester dans mon inculture, je m'interroge ...
Dans ta macro
Sub ChangeForm()
Set olApp = New Outlook.Application
Tu crées un objet qui correspond à une session outlook (?), ok
Set olNS = olApp.GetNamespace("MAPI")
En termes simples, qu'est que le GetNamespace("MAPI") ?
Qui est MAPI ?
Pardonnez moi cette intrusion (un poil HS) dans ce fil.
Je bidouille pas mal VBA surtout sur excel et dans les macros destinées à outlook que je vois passer, la même chose m'interpelle à chaque fois ... donc afin d'éviter de rester dans mon inculture, je m'interroge ...
Dans ta macro
Sub ChangeForm() Set olApp = New Outlook.Application
Tu crées un objet qui correspond à une session outlook (?), ok
Set olNS = olApp.GetNamespace("MAPI")
En termes simples, qu'est que le GetNamespace("MAPI") ? Qui est MAPI ?
Pardonnez moi cette intrusion (un poil HS) dans ce fil.
Je bidouille pas mal VBA surtout sur excel et dans les macros destinées à outlook que je vois passer, la même chose m'interpelle à chaque fois ... donc afin d'éviter de rester dans mon inculture, je m'interroge ...
Dans ta macro
Sub ChangeForm() Set olApp = New Outlook.Application
Tu crées un objet qui correspond à une session outlook (?), ok
Set olNS = olApp.GetNamespace("MAPI")
En termes simples, qu'est que le GetNamespace("MAPI") ? Qui est MAPI ?
Pardonnez moi cette intrusion (un poil HS) dans ce fil.
Je bidouille pas mal VBA surtout sur excel et dans les macros destinées à
outlook que je vois passer, la même chose m'interpelle à chaque fois ...
donc afin d'éviter de rester dans mon inculture, je m'interroge ...
Dans ta macro
Sub ChangeForm()
Set olApp = New Outlook.Application
Tu crées un objet qui correspond à une session outlook (?), ok
Set olNS = olApp.GetNamespace("MAPI")
En termes simples, qu'est que le GetNamespace("MAPI") ?
Qui est MAPI ?
Pardonnez moi cette intrusion (un poil HS) dans ce fil.
Je bidouille pas mal VBA surtout sur excel et dans les macros destinées à outlook que je vois passer, la même chose m'interpelle à chaque fois ... donc afin d'éviter de rester dans mon inculture, je m'interroge ...
Dans ta macro
Sub ChangeForm() Set olApp = New Outlook.Application
Tu crées un objet qui correspond à une session outlook (?), ok
Set olNS = olApp.GetNamespace("MAPI")
En termes simples, qu'est que le GetNamespace("MAPI") ? Qui est MAPI ?
