begin process at 2010 03 21 15:06:12
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

VBA

 > NET SEND VBA ACCESS

NET SEND VBA ACCESS


 Information sur la source

Note :
1 / 10 - par 1 personne
1,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :VBA Classé sous :netsend, vba, access, net, send Niveau :Débutant Date de création :14/04/2006 Date de mise à jour :20/04/2006 14:08:16 Vu / téléchargé :9 119 / 1 134

Auteur : sebtralalaetph

Ecrire un message privé
Site perso
Commentaire sur cette source (9)
Ajouter un commentaire et/ou une note

 Description

Cliquez pour voir la capture en taille normale
Ce petit Programme permet d'envoyer des messages sur un réseau local via Net Send à partir d'ACCESS.

Source

  • Public Function SendMessage(sToUser As String, sFromUser As String, sBody As String) As Boolean
  • Dim abTo() As Byte, abFrom() As Byte, abBody() As Byte
  • abTo = sToUser & vbNullChar
  • abFrom = sFromUser & vbNullChar
  • abBody = sBody & vbNullChar
  • If NetMessageBufferSend(ByVal 0&, abTo(0), ByVal 0&, abBody(0), UBound(abBody)) = NERR_Success Then
  • SendMessage = True
  • Forms("net send").journal.Caption = "Le message a bien été envoyé"
  • Else
  • Forms("net send").journal.Caption = "Une erreur est survenue"
  • SendMessage = False
  • End If
  • End Function
Public Function SendMessage(sToUser As String, sFromUser As String, sBody As String) As Boolean
Dim abTo() As Byte, abFrom() As Byte, abBody() As Byte
    abTo = sToUser & vbNullChar
    abFrom = sFromUser & vbNullChar
    abBody = sBody & vbNullChar
    If NetMessageBufferSend(ByVal 0&, abTo(0), ByVal 0&, abBody(0), UBound(abBody)) =     NERR_Success Then
        SendMessage = True
        Forms("net send").journal.Caption = "Le message a bien été envoyé"
    Else
        Forms("net send").journal.Caption = "Une erreur est survenue"
        SendMessage = False
    End If
End Function

 Conclusion

j'ai utilisé un module de clickpouf pour cacher la fenetre access et ne laisser visible que la fenetre de l'application.
(http://www.vbfrance.com/codes/ACCE SS-CACHER-FENETRE-PRINCIPALE-APPLICATION_18284.asp x)


 Fichier Zip

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !
  • Net Send.mdbTélécharger ce fichier [Réservé aux membres club]331 776 octets

Télécharger le zip


 Historique

20 avril 2006 09:50:33 :
Mise a jour du 20 Avril 2006 Utilisation de l'api NetMessageBufferSend qui gère les erreurs. (http://www.ostrosoft.com/vb/projects/net_send/index.asp)
20 avril 2006 14:08:16 :
Correction du code qui n'avait pas ete mis a jour

 Sources du même auteur

Source avec Zip Source avec une capture CRYPTEUR BASE 64

 Sources de la même categorie

LIEN HYPERTEXTE SOUS EXCEL EN PARTAGE par LMJ
Source avec Zip OUTIL DE FORMATION par l0r3nz1
Source avec Zip Source avec une capture UN PHOTO RESIZEUR par patosch
CONVERSION D'UN NOMBRE EN "PACKED NUMBER", ET INVERSEMENT par WebSeb
COPIER LES TEXTES D'UNE DIAPOSITIVE POWERPOINT SAUF LES ESPA... par GMY

 Sources en rapport avec celle ci

Source avec Zip Source avec une capture GESTIONNAIRE DE NET SEND par ratala
Source avec Zip Source avec une capture NET SENDER par firsttiger
Source avec Zip Source avec une capture NET SEND par marcdebureaux
Source avec Zip NET SEND FLOODER par vbkiller
E-NETSEND par davidator

Commentaires et avis

Commentaire de sebtralalaetph le 14/04/2006 16:10:33

j'oublais une précision, il suffit de saisir les noms d'utilisateurs des destinataires.
Pour supprimer un nom, touche Suppr.
Voila

Commentaire de Willi le 14/04/2006 18:14:45 administrateur CS

Je vois pas trop l'intérêt de poster une Nième source netsend sur vbfrance...

Commentaire de sebtralalaetph le 15/04/2006 10:24:02

C'etait pour montrer une utilisation possible, je m'en sert pour etre averti quand une personne lance l'application que j'ai développé en temps reel sans avoir a passer par un journal.     sebtralalaetph

Commentaire de sebtralalaetph le 15/04/2006 10:44:02

j'aimerai bien avoir quelques conseils, voir quelques notes, soyez sympas...     sebtralalaetph

Commentaire de Neo.balastik le 15/04/2006 19:35:19

Lancer une commande (ici un net Send) via un Shell est un bricolage.  Certes ca marche mais comment sais-tu si ta commande a échoué ou pas ?  La seule et unique méthode valable reste l'utilisation de l'API NetMessageBufferSend de la DLL netapi32.dll qui est utilisée pour un Net Send.

Un exemple VB ici :
http://www.ostrosoft.com/vb/projects/net_send/index.asp



Commentaire de sebtralalaetph le 17/04/2006 12:06:45

Ok merci pour la source, je vais regarder ca, c'est vrai qu'il est plus interressant d'avoir une gestion d'erreur.     sebtralalaetph

Commentaire de tomaste le 07/05/2006 17:20:57

Yo soy español y en españa es imposible encontrar algo asi, me parece genial esta programa hecho en access, felicidades, al que lo hizo yo lo voy a utilizar porque va muy bien

Commentaire de sebtralalaetph le 10/05/2006 11:41:55

content que ce code passe les frontieres...

Commentaire de rik31 le 05/08/2006 21:09:02

Comment réafficher l'interface access... ton code m'intéresse et je voudrais le voir complétement.
Merci

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

NET SEND via EXCEL97/VBA [ par jos99 ] Bjr,J'ai trouvé pas mal de solutions permettant d'envoyer des messages grâce à NET SEND. Le problème: c'est du VB.Quelq'un peut-il m'aider à faire un Format Date .Net contre VBA [ par dragon ] j'ai une application qui exécute du code, autant en .Net qu'en Accesspour tout les type de donnée, j'ai aucun problème, sauf pour la date. si j'ai une appel de fonction .NET de access VBA [ par quineman ] Peut on appeler du code .NET d'une application MS access (et donc dans du code VBA)Merci Migration VBA [ par Jej51 ] Bonjour, Je dois actuellement faire migrer une application en VBA/Access vers VB.NET ou C# (ces deux derniers étant au choix)Personnellement je connai Conversion de VBA Ms Access à Vb.Net [ par emayen01 ] Bonjour , je débute en  Vb.Net et j'ai a faire une migration d'une interface MS Access 2003 a Vb.Net avec du Vba , sous sql server 2000.je sais pas acceder à du code .NET via access [ par quineman ] Bonjour,Je suis en train de créer une application access et j'ai besoin de créer des pdf. Puis je utiliser des fonctions .NET dans une base access ?Pa écrire ds une table access en vba [ par inconnu2nulpar ] Bonjours, je voudrais écrire ds une table access grace a une macro, mais je ne sait pas comment faire ?pour étre plus précis je doit re Code barre vba access (URGENT) [ par HakNouveau ] bonjour, je dois créer une interface sur vba avec access où je dois afficher une dizaine de code barre dans une même pagele truc, c'est mapper un objet .NET dans une macro VBA [ par luoztym ] Salut à tous,  J'ai une dll .NET en C# qui se charge d'appeler un WebService qui renvoie une structure.Quelle est la mét VBA Access [ par rictus31 ] BonjourDébutant VBA sous Access (j'ai des notions sous Excel), je souhaite effectuer une macro toute simple pour mettre à jour le format de


Nos sponsors


Sondage...

Comparez les prix

CalendriCode

Mars 2010
LMMJVSD
1234567
891011121314
15161718192021
22232425262728
293031    

Consulter la suite du CalendriCode

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 1,092 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales