Net send vba access

0/5 (9 avis)

Vue 14 479 fois - Téléchargée 1 430 fois

Description

Ce petit Programme permet d'envoyer des messages sur un réseau local via Net Send à partir d'ACCESS.

Source / Exemple :


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/ACCESS-CACHER-FENETRE-PRINCIPALE-APPLICATION_18284.aspx)

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
1
Date d'inscription
vendredi 19 mars 2004
Statut
Membre
Dernière intervention
5 août 2006

Comment réafficher l'interface access... ton code m'intéresse et je voudrais le voir complétement.
Merci
Messages postés
111
Date d'inscription
dimanche 19 février 2006
Statut
Membre
Dernière intervention
2 avril 2010
1
content que ce code passe les frontieres...
Messages postés
2
Date d'inscription
vendredi 5 mai 2006
Statut
Membre
Dernière intervention
7 mai 2006

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
Messages postés
111
Date d'inscription
dimanche 19 février 2006
Statut
Membre
Dernière intervention
2 avril 2010
1
Ok merci pour la source, je vais regarder ca, c'est vrai qu'il est plus interressant d'avoir une gestion d'erreur. sebtralalaetph
Messages postés
796
Date d'inscription
jeudi 17 mai 2001
Statut
Membre
Dernière intervention
5 mai 2009
7
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
Afficher les 9 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (sebtralalaetph)