begin process at 2012 02 11 08:34:28
  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é :10 892 / 1 224

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

Source avec Zip GESTION PERSONNEL par oudlarbi
Source avec Zip Source avec une capture CALENDRIER EN VBA POUR EXCEL 2010 par nounou94
Source avec Zip Source avec une capture MANIPULER LES FENETRES ENFANT D'EXCEL par bigfish_le vrai
Source avec Zip Source avec une capture COLLECTION ID par Le Pivert
Source avec Zip Source avec une capture VBA MASQUE DE SAISIE NUMÉRIQUE par acive

 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

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 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 problème de format de date [ par clemse31 ] Bonjour, Je rencontre un problème de format de date. En vb.net, en cliquant sur une date du "monthcalendar" je récupére la date et j'effectue une requ Programme AS400 et VBA [ par bmo83 ] bonsoirJ'ai développé une application sur ACCESS 2000 (VBA) qui se connecte sur un AS400 afin d'importer des fichiers. Ces fichier ensuite alimentent Vitesse d'execution requète access via ado.net [ par akibodo ] Bonjour à tous,Voilà je débute en programmation et j'essaye d'apprendre par moi même. J'ai commencer par les macros excel et maintenant VB.net.Je suis connexion a une base access 97 via vba 6.3 [ par sourire45 ] bonjour tout le monde!!!Voila je suis nouvelle dans le forum et débutante en vba..j ai un eapplication créer avec excel 97 et qui fait appel a une bas Exporter les données d'une liste sous VBA vers Access [ par Benythefrog ] Bonjour a tous et a toutes les DeveloppeursMerci d'avance pour votre aide qui j'en suis sure me sera trés précieuseVoila je recupere dans une liste un


Nos sponsors


Sondage...

Comparez les prix

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

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 : 0,562 sec (3)

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